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EXCLUSIF : UN NOUVEL AMSTRAD 512 Ko ! 

On attendait Grouchy et ce fut Bliicher : au lieu du PC tant attendu, Amstrad nous sort un 512 Ko de ses placards. Et 
9a continue, encore et encore... 



IL SE RESSEMBLE 

On ne voit pas tres bien quel est 
le but de cette machine (1). Elle 
ressemble beaucoup a un 6128 
mele d'une touche de Macin- 
tosh et d'un doigt d'Atari ST. 
Est-ce une initiative de tonton 
Sucre pour faire patienter ses 
clients qui attendent impatiem- 
ment son compatible PC ? Tou- 
jours est-il que le CPC 5512 est 
annonce cette semaine en 
Grande-Bretagne. En France, 
on n'est meme pas au courant, 
comme d'habitude. Alors ? Un 
coup de poing sur la table ? Un 
retournage de veste express ? 
Une grosse colere, en tout cas... 

HEIN ? VOUS ETES SUR 
QU'IL Y EN A 5 ? 

Premier detail qui accroche 
I'neil, 6 combien : le drive inte- 
gre qui equipe la becane est 
un... cinq pouces un quart. Par- 
don ? Un quoi ? Un cinq pou- 
ces, yes madame, comme si 
vous preniez les pouces de cinq 
mains differentes, ca vous ferait 
cinq pouces, comme le club des 
cinq, superCinq je te veux, de 
cinq a sept, j'en ai cinq comme 
nana f*inn. nuoi Un cinq pou- 
ces. Je vous laisse vous 

rasseoir. 

DURI 

Bon. Voila, c'est dit, y a plus de 
trois pouces, plus de pro- 
blemes avec les disquet- 
tes, plus de rumeurs, 
plus rien, Sugar balaye 
d'un grand coup de cinq 
pouces dedaigneux. Parce 
que des 5 pouces, au moins, 
dn est sur d'en avoir en stock. 
C'est pas comme ces maudites 
3 pouces que le jour oil il a 
trouve ca, il aurait mieux fait de 
se casser une jambe. Et on 
passe a autre chose. 
La becane ressemble beaucoup 
au 6128, un peu comme si le 
drive avait ete greffe dessus en 
catastrophe. Un peu plus lon- 
gue, bien sur, a peine plus pro- 
fonde et exactement la meme 
epaisseur. C'est en la retour- 
nant qu'on remarque les diffe- 



rences : il y a deux prises Midi 
en plus et une... RS 232 ! Deci- 
dement, on se standardise vrai- 
ment, chez Amstrad. En tous 
cas, ca va resoudre plein de 
problemes pour ceux qui hesi- 
taient a se payer I'extension. 
Dedans, on retrouve le bon 
vieux Z80 des family, qui n'en 
peut plus de mourir a petit feu 
aussi lentement. La encore, on 
peut legitimement s'etonner : 



AILLEURS 

La Ram. Comme d'habitude, 
hein, c'est une Ram ? Ben non, 
pas du tout. C'est une Ram, 
mais pas comme d'habitude. 
D'abord, il y en a 512 Ko. On fait 
PRINT FRE(0) ? Allons-y. P, R, 
I... Ca va jeter, tu te rends 
compte, Albert, 512 Ko de 
Ram ? N, T, F, R... Je suis tout 
anxieux. 




c'est-a-dire divisee en 6 blocs 
inegaux. Le premier, c'est 
I'espace libre de ('initialisation. 
Les 5 autres component chacun 
pres de 94 Ko, soit exactement 
96.000 octets. Une septieme 
partie existe, mais que I utilisa- 
teur ne peut pas atteindre : il 
s'agit des 2 Ko de liens dont la 
Rom a besoin pour fonctionner. 
Ce qui me fournit une transition 
excellente pour vous donner la 
capacite de la Rom : 64 Ko, 
contre 48 pour le 6128 et 32 
pour le 464. Mais qu'est-ce qui 
justifie cet ecart ? Oh, quelques 
mot-cles basic, et puis... Non, 
ca c'est trop bon, je vous le 
garde pour la fin. 

BASIC PLUS 

Les fonctions supplementaires 
faciles a comprendre et que je 
n'expliquerai done pas : Circle, 
Paint, Scroll. 

A partir de la, on s'accroche, y 

a des parametres. Music vient 

a la rescousse de Sound pour 

proposer enfin quelque chose 

de manipulable : Music 4, 2, 3 

joue la quatrieme note de la 

deuxieme octave sur la voie 3, 

soit un re diese. Pour arreter 

cette note, rien de plus simple : 

Music 0, 0, 3 

(absence 

de son 

sur 



quelle idee 
de construire une 
becane qui n'est qu'une de plus 
dans la damme CPC autour du 
meme 280 ! Quand est-ce 
qu 'Amstrad se decidera a se 
tourner du cote du 16 bits, ou 
pourquoi pas du 32 ? Bon, foin 
de ces polemiques steriles : 
d'autres plus juteuses nous 
attendent ailleurs. 



dis done. 
E, (, 0, )... On vest 
presque... Return ! Voila ! 
Hein ? 42249 octets libres ? 
C'est un gag, ou quoi ? 
Mais non, cher Albert, rassurez- 
vous, ce n'est pas un gag. A 
('initialisation, on n'a que 42 Ko 
disponibles, comme dans son 
petit frere le 6128. Les quelques 
kilos restants ne sont utilisables 
qu'en tant que memoire de 
masse. 
La memoire est partitionnee. 



^ le canal 3). 

On va enfin pou- 
voir s'emmelodier les oreilles. 
Switch commute la banque 
memoire de destination, au 
choix de a 5 (0 etant la ban- 
que du basic). On peut par 
exemple sauver un programme 
sur la banque trois en tapant : 
IBANK.OUT : SWITCH 3 : 
SAVE "albert". 
Clock met la pendule a I'heure, 
car, et c'est une nouveaute, le 
5512 est equipe d'une veritable 
horloge. avec une pile qui per- 
met de garder I'heure apres la 



BIDOUILLE GRENOUILLE 

Ou comment trteher, modifier, trofiquer, mogouiller, bidouiller et grenouiller avec 
les logiciels du monde entier. Mais dons la legalite au moins ? Of course, mon Gene- 
ral ! La loi 85-600, litre V, article 47, du 3 juillet 1985 autorise une copie de sauve- 
garde, et si par malheur vous trouvez dans cette rubriaue la moniere de depiomber 
un logicie! , c'est evidemment pour vous permettre de faire cette unique sauvegarde. 
Vous etes prie de replomber tout de suite apres. Lire page 14 

DEULIGNEURS les faineants sont en page 15 



FORMATION A L'ASSEMBLEUR 

Les amateurs eclaires vous attendent en page 34 

C'est nouveau, 9a vient de sortir : 

L'actualite de la micro-informatique pages 11.12.13 

CINOCHE-TELOCHE pages 2, 35. 



mise hors tension. Au choix : 
sur 12 ou 24 heures, car la 
France fait partie du plus gros 
territoire de chasse de ce cher 
Alan ! 

Mouse teste i'etat de chacun 
des trois boutons et de la direc- 
tion de la souris, qui, faut le 
noter au passage, est optio- 
nelle. Tout ce qui se sert de la 
souris marche aussi avec le 
joystick ou avec le pave num6- 
rique. II est accompagne de 
Mouse Buf , qui fixe la valeur du 
buffer d'entree, de Mouse Exec, 
qui vide le buffer en I'affichant 
et de Mouse Off qui vide le buf- 
fer sans I'afficher. Ceux qui 
revent du Mac ou du ST, c'est 
le moment... 

Config est un tres joli mot-cle, 
puisqu'il dit bien ce qu'il veut 
dire : il configure. C'est bien, 
hein ? Qa manquait. Pardon ? 
Excusez-moi : c est la RS 232, 

§u'il configure. Avec une liste 
e parametres qui ressemble a 
la cuisse de ma sceur : longue 



comme le careme Vitesse, 

parite. bits de start, de stop, 

xon-xoff, hall ou full duplex, RC 

apres LF, bref : la routine. Y a 

tout. 

Et on arrive au gros morceau... 

LE GROS MORCEAU 

Le gros morceau, c'est le 
subsystem. Je vais avoir du mal 
a vous expliquer, parce que 
c'est vraiment tres simple. 
C'est un gestionnaire de 
bureau, exactement comme le 
Mac ou le ST. 

Vous voyez ? Vous ne compre- 
nez pas. Ou plutot, vous n'osez 
pas comprendre. Bon, je vous 
visite guidement, suivez-moi. 
Vous venez d'allumer la 
becane. Vous tapez SYSTEM et 
I'ecran s'efface. Super, non ? 
Mais attendez, c'est pas tout. 
Sans se departir de ses belles 
couleurs bleues et jaunes. 

Suite page 13 



MATEZ LE NOUVEAU 



Avant de lire ces quelques 
lignes, admirez amoureu- 
sement cet engin aux allu- 
res bradburiesques. "Qu'est-ce", 
me demandez-vous d'une voix fre- 
missante ? C'est un revenant qui 
vient de changer de robe, autre- 



ment dit, c est un fantdme qui 
avait un drap un peu sale, un peu 
degueu et enviait les soirs de 
pleine lune son grand frere au teint 
blanc pur. En somme, c'est un 
Commodore 64 revu et corrige. 
Suite page 14 




Votre programme, non content de vous rapporter 1 .000 francs par page 
publiee, peut vous rapporter 20.000 francs chaque mois ou un voyage en 
Califomie pour deux, chaque trimestre. 
Reglement en page interieure. 



INFO BD : toute i/actuaute en page 23 



DES PROGRAMMES POUR VOTRE ORDINATEUR : 

AMSTRAD • APPLE He ET lie • CANON X07 • CASIO FX 702 P • 

COMMODORE 64 ET COMMODORE VIC 20 • EXELVISION EXL 100 • 

MSX et compatibles • ORIC 1 ET ATM0S • SINCLAIR ZX 81 ET SPECTRUM 

TEXAS TI99/4A • THOMSON T07, TO7/70 ET M05 • 




1 . 37°2 LE MATIN de Jean-Jacques Beineix 

2. TENUE DE SOIREE de Bertrand 
Blierf*) 

3. HIGHLANDER de Russell Mulcahv 

4. fHISTOIRE OFFICIELLE de Luis 
Puenzo 

5. MAXIE de Paul Aaron 

6. TUTTI FRUTTI de Michael Dinner 

7. L'AME SOEUR de Fredi M.Murer 



8. POLICE FEDERALE LOS ANGELES 
de William Fried km I* i 

9. CONSEIL DE FAMILLE de Costa 
• Gavras 

10. LES FEUX D'HIMATSURI de Mitsuo 
Yanagimachi 

1 1. AFTER HOURS de Martin Scorcese (•) 

12. L'HONNEUR DES PRIZZI de John 
Huston 

1 3. HANNAH ET SES SOEURS de Woody 
Allen 1*1 

14. GINGER ET FRED de Federico Fellini 

15. ZAPPA de BiUe August 

(Films sort is depuis ie ler Janvier 1986. Les 
films marques * sont les entrees par rapport 
au precedent classement du N°131) 



L'ETE SERA CHAUD... 



Imaginez que Ie soleil de ces demiers jours 
ait frappe un grand coup sur votre crane 
fragile et que vous vous mettiez a divaguer 
autour DU film du siecle, celui dont Ie 
generique vous ferait mourir a lui tout seul. 
Les ingredients seraient simples a trouver, 
meme en cas d'insolation : Michael Cimino 
a la mise en scene (L'Annee du dragon, 
20/20 !), Ie geniallissime Robert De Niro 
(Taxi Driver, II etait une fois en Amerique, 
etc.) comme heros deprave, seconde par 
love-John Savage (Maria's Lovers, Salva- 
dor) et aglagla-Christopher Waiken (Dead 
Zone, Brainstorm); plus, en egerie trou- 
blante, la sensuelle Meryl Streep. Ca y est, 



vous etes agonisants devant un tel 
mirage ? 

Attendez quelques secondes avant de tre- 
passer... car ce film existe et ressemble 
en effet a un miracle. Son titre ? Voyage 
au bout de Tenter qui marque I'ouverture 
de la saison des reprises estivales Quand 
on pense que cette sortie est accompa- 
gnee de celle de "One, Two, Three" de 
Billy Wilder, du "Troisieme Homme" de 
Carol Reed avec Orson Welles et de "La 
vie est a nous" de Jean Renoir, on se dit 
que I'ete va etre chaud, chaud, et qu'il fera 
bon se terrer au cinoche a deguster ces 
incomparables merveilles... 



HAVRE 

de Juliet BERTO 



avec MANEVAL (Directeur de cons- 
cience), Frederique JAMET (Lili), Joris 
IVENS (Docteur Digitalis) et Lino 
KHRISS (polo) 

Le Havre, son port, ses dockers, ses 
marins qui pissent, sa boulangerie. Une 
ville banale, morne, pleine du bruit et de 
la fureur des poissons etripes dans les 
filets des pecheurs (j'attends avec 
angoisse les lettres d'insulte des cheeers 
lecteurs havrais...). C'est ce lieu ou rien 
n 'arrive mais oil tout semble possible que 
Juliet Berto a choisi pour amarrer son 
bateau ivre de visions magiques et perver- 
ses. Depuis "Neige" et surtout I'inoublia- 
ble (et totalement meconnu) "Cap 
Canaille", ce petit bout de comedienne 
passee derriere la camera nous a habitue, 
a son "style", ses vagabondages deses 
peres autour de quelques personnages 
illumines et improbables. Tous les (rares) 



\flM 



"tous des pourris") avance a grands coups 
de symbolisme dit branche, on te dit rien, 
on te cache tout et t'aimes ca pasque c'est 
chaud et discret (mon Dieu, faites quelque 
chose, je delire completement ! !). Alors 
que pour "Havre", la pauvre Juliet en fait 
des caisses de ses merveilles esoteriques, 
en oubliant toute retenue. 
Le film semble bati sur quelques lueurs 
hatives, rallongtes a souhait sans le moin- 
dre espoir d'explication a I'horizon. Par 
ordre de rien du tout, ca nous donne un 
jeu de Tarot qui s'emballe et se joue dans 
la realite, une secte pourrave menee par 
un obsede sexuel (Maneval, les yeux exor- 
bites), un mome stupide qui fait semblant 
de creer un Adventure Game faussement 
interactif et Dr Digitalis, un sage assoupi 
qui nous la refait telepathiquement votre ! 
je sals, je sais, ca fait catalogue La Redou- 
table, tres fouillis et Ires tape-a-Tceil. C'est 
bien le reproche essentiel qu'on peut faire 




spectateurs de "Cap Canaille" salivent 
encore au souvenir des robes moulantes 
de Juliet Berto... 

La robe rouge de Lili est d'ailleurs le prin- 
cipal trait d'union entre la Berto de "Cap 
Canaille", comedienne et realisatrice (en 
"communion" avec son copain d'alors, 
J.H.Roger) et la Berto realisatrice toute- 
seule-comme-une-grande d'aujourd'hui. Et 
le moins qu'on puisse dire c'est qu'on y 
a pas gagrie au change I Comme dans ses 
precedents films I'histoire (tendance polar 



a Juliet Berto : d'en faire decidement trop 
avec trap peu de matiere. 
La petite Lili trimbale done courageuse- 
ment sa tristesse congenitale, de docker 
muscle en beau marin romantique. Elle tra- 
verse de fantastiques plans, (trop ?) cons- 
truits au millimetre ores, pieges par la fabu- 
leuse photo de William Lubtchansky. C'est 
sympathique, on s'accroche pour com- 
prendre, mais tout se veut tenement par- 
fait, tenement etudie qu'on en vient a hur- 
ler a I'essentiel : et I'emotion bordel ? 



POURVU 
QUE CE SOIT 
UNE FILLE... 




de Mario 
MONICELLI 



avec Uv ULLMANN (Elena), Giuliana DE 
SIO (Franca), Catherine DENEUVE (Clau- 
dia), Philippe NOIRET (Leonardo), Ste- 

fania SANDRELLI (Lolli) et Bernard 
BLIER (Onde Gugo). 

On nous dit que le dernier Monicelli vient 
d'obtenir 7 (oui 5 + 2) David De Donatello, 
qui serait I'equivalent italien des Oscars 
et des Cesars. Alors de deux choses 
I'une : soil la production italienne de 
I'annee est a ce point faible pour recom- 
penser cette chose desuete, soit le gout 
des jures italiens n'a pas evolue depuis 
vingt ans ! A part la recompense attribute 
a Bernard Blier pour sa composition 
enoooorme mais hilarante de vieux gateux, 
je ne vois pas ce qui a pu motiver tant 
d'enthousiasme ! Ou alors c'est que le 
classicisme petit bourgeois revient a la 
mode. Ici tout fonctionne sur ce mode : 
mise en scene, dialogues, situations, mon- 
tage, tout-releve de ces "comedies de 
mceurs" catastrophes dont I'empereur en 
France s'appelle (ou s'appeiait) Claude 
Sautet. J'ai I'air de me moquer mais 




qu'est-ce-qu'on les aimait les "Choses de 
la vie" aux 4302 versions toutes d iff e ren- 
tes et pourtant si semblables : quelques 
soucis d'argent pour accentuer les rides, 
des histoires de cul dignes mais toujours 
cul-pabilisantes. des enfants qui grandis- 
sent trap vite et font chier leurs parents, 
le tout assaisonne de scenes de "pure 
detente" (les clowneries de Montand chez 
Sautet, de Blier chez Monicelli). 
Je parte de ces films a I'imparfait parce 
qu'on salt que Sautet a tout le mal du 
monde a monter un nouveau film... C'est 
done que le filon semble enfin tari. Sauf 
pour les Italiens ! 

Et en plus c'est une histoire de femmes, 
toutes belles, toutes appetissantes, mais 
toutes atteintes par le mal du siecle : elles 
sont mal dans leur peau I Elles ont beau 
boire des litres d'eau minerale (pour I'equi- 
libre I), se contenter d'une pomme au 
dejeuner, draguer les loulous en decapo- 
table, rien n'y fait, c'est le spleen ! C'est 
Elena la chef, aristo de famille et de manie- 
res mais aussi de fortune puisque, comme 
toute dynastie qui se respecte, seule la 
belle maison oil creche la smala a echappe 
a la ruine. On y trouve les filles d'Elena, 
Franca, coureuse de males universitaires, 
et Malvina, 16 ans et toutes ses socquet- 



tes blanches. Plus Martina, la fills de Clau- 
dia, sceur d'Elena, actrice a Rome et done 
incapable de s'occuper de sa gosse. Bon- 
jour la reputation des:stars ! Enfin, Fosca, 
I'exuberante gouvernante et sa fills dont 
le mari et pere est parti bosser en Austra- 
lie. Chercher I'homme au milieu de ce 
harem hysterique et bavard releve de 
I'inconscience pure, et pourtant "N" est 
tolere sous les traits seniles et bravaches 
de I'Oncle Gugo. Notons ici qu'Elena est 
pourtant mariee au fantasque comte Leo- 
nardo, mais que celui-ci s'est fait jeter il 
y a belle lurette et ne fait que de rares 
apparitions au domaine pour quemander 
son argent de poche... 
Tout ce petit monde est perpetuellement 
en crise, s'engueule, se reconcilie, 
s'eponge les larmes, s'inquiete pour rien 
histoire de passer le temps et de faciliter 
le notre ! Evidemment que c'est chamnant 
et distrayant, mais etait-ce bien la peine 
de nous refaire le plan nostalgique du clan 
en voie de decomposition, tant et tant de 
fois traite au cinoche ? Et que dire de 
I'atroce version "originale" oil Blier, Noi- 
ret, Ullmann et Deneuve sont doubles en 
italien.. .Rien, sinon de la fuir au profit de 
la version francaise, si tant est que ce film 
vous branche ! 



LE DERNIER 
SURVIVANT 

de Geoff MURPHY 




avec Bruno LAWRENCE (Zac Hobson), 
Alison ROUTLEDGE (Joanne) et Pete 
SMITH (Api). 

Six heures du mat, Zac Hobson a des fris- 
sons, il claque des dents et il monte le son. 
Mais il a beau triturer le volume de ladite 
radio, aucune musique n'en sort. II n'y a 
d'ailleurs plus aucun bruit nulle part. II 
decouvre ce matin-la que I'operation 
"Flashlight" sur laquelle il bossait depuis 
une annee a ete mise en route dans son 




dos et a reusst au-dela de toute esperance. 
Mieux qu'une catastrophe nucleaire, 
"Flashlight" a decale tous les humains 
dans une autre dimension spatio- 
temporelle, mais sans toucher aux meu- 
bles ! Zac est le dernier survivant, du 
moins le croit-il, il va pouvoir donner libre 
cours a ses fantasmes les plus fous : il 
demenage dans les villas les plus cossues, 
change de bagnole comme de chemise et 



va jusqu a se prendre pour Dieu I La para- 
noia s'installe et I'entraine a parcourir les 
rues a la recherche d'ames qui vivent ! La 
solitude ca n'existe pas, c'est bien connu, 
et le voila bientot nez a nez (je vous epar- 
gne les details erotiques) avec la belle 
Joanne et cette grasse brute d'Api. Vous 
pouvez toujours courir pour que je vous 
explique comment il se fait que ces trois- 
la n'aient pas ete aspires par I'effet cos 
mique.Sachez seulement que I'effet en 
question va se produire a nouveau et que 
Zac, dans un uttime acte d'herolsme, va 
tenter de sauver ses deux camarades ! 
Autour d'une idee originale (le genocide 
sans le cataclysme) mais un peu faible 
pour tout un film, Geoff Murphy s'evade 
de la science-fiction, type "4eme dimen- 
sion", pour foncer dans le psychologique 
bon teint (la peur et la folie des hommes). 
Ses bonnes intentions sont malheureuse- 
ment desservies par un montage sopori- 
fique et une accumulation artificielle de 
cadrages "branches". Attendons de le voir 
a I'ceuvre avec un budget plus important, 
et une plus grande attention portee a I'effi- 
cacite Dernier conseil : ne kxipez a aucun 
prix le generique de debut, c'est bateau 
mais carrement sublime... 



SOUVENIRS 
SECRETS 

de John REID 




avec Sir John GIELGUD (John), Jane 
BIRKIN (Marie) et Feodor ATKINE 
(Andre). 

Hein qu'elle est belle ma Jane, notre Jane 
nationale. la seule chose de sublime, avec 
le the et les scones, qu'on ait piquee aux 
engliches ! Plus elle vieillit (on dit murit), 
plus elle devient emouvante, vibrante, 
reposante et pour tout dire plus que par- 
faite. Je I'aime, je r adore, ma chambre est 
tapissee de photos d'elle (mensonge) et je 
suis le president a vie de son club de fans 
(re-mensonge). Bref je craque a chaque 



fois que son minois nature et sincere appa- 
rait dans le coin gauche de I'ecran (eh oui, 
a droite c'est moins bien, comprenne qui 
pourra !) et me fait tressaillir du haut de ma 
nuque virile jusqu'au creux des reins... 
C'est pas torride comme envolee, ca ? 
C'est Zezette qui va faire la gueule si elle 
tombe sur cet article., assumons, assu- 
mons, de toutes facons elle (Zezette) est 
tres comprehensive tant que je ramene 
pas les actrices a la maison... 
Je m'apercois avec horreur et effroi qu'il 
faudrait que je cause un peu de "Souve- 
nirs secrets" oil que Jane B. joue dedans. 
Voila une surprise qu'elle est bonne : ca 
fait deux ans que ce film est termine, et 
c'est aujourd'hui seulement et enfin (avant- 
hier pour etre precis) qu'on peut aller s'en 
payer une tranche. Une anecdote un peu 
vaine autour de la memoire de Katherine 
Mansfield, une romanciere neo-zelandaise 
(si, si, y en a qui savent ecrire !) du debut 
du siecle, celebre pour ses recits de voya- 
ges et ses contes et qui mourut a 35 ans, 
en 1923, de la tuberculose. Le film com- 
mence en 1955 quand John Middleton 
Murry, le mari de Katherine, rend visite a 
son editeur francais pour verifier une nou- 
velle edition des ceuvres de sa femme. Le 
choc est rude quand il s'apercoit que 
Marie, I'epouse de I'editeur, est le sosie 




de la defunte. Les deux s'embarquent 
dans de ramantiques ballades jusqu'a ce 
que Marie decouvre que Katherine avait 
toujours refuse qu'on edite les ecrits que 
diffuse John. Ce vieux gentleman 
cacherait-il a ce point son jeu pour n'etre 
qu'un parfait salaud ? ? 
En fait, je tente de vous faire vaguement 
salrver en depit du manque ternfiant d'inte- 
ret de "Souvenirs secrets" : a part les 
apparitions lumineuses de Jane Birkin 
(baillonnez-le ! I) et les somptueuses ima- 
ges, aucune tension, aucun derapage ne 
vient bouleverser le cours somnolent de 
I'histoire. Tres british, old fashion, en 
somme... 



OIL PANIC 

Grandeur et decadence. Tentez par un moyen de fortune, 
de maintenir operation nolle votre minable station service 
jadis florissante... 

Serge et Anthony CARRE 



THOMSON MOB 



ERRATUM et MODIFICATIONS 
MOS des N°135 et 136 

D.A.O 



L'auteur nous signale quelques 
modifications a apporter a son 
programme (possibility de suivre 
en permanence la trace du 
crayon optique, par la presence 
d'un point clignotant) : 



60 TUNE M i[*. dc MA1T 

70 ;cpeen. . 1VGOTO500 

100 irZU'0THEN110E!.SEru*l:AU-lHA7C0:GOTQ 

tee 

118 INPENCH-LU: I*"CM 0OftLUk 0THEII1 10E15EPH 
-CU-0*LU040:POKEhU.PEEK<au AMC£.i4:uU>PEE 
■-!.': POKEAm, PEEK < AM )0P 1 : PU"PEEK < PU > : PSE 
T>CM,Lw>.8>PLAY"L6P":P0KEAU.PEEK<Att>0R|5 
POKEPm. PM: POKEAU. PEEK ■ Ml) M0234I POKEPM, 
H: IFPTRIG-0THEM100ELSEREIUR* 

3810 GOSUS100: INPUTPENX.Y 

3510 G0SU619e:INPUTPEMX3.Yj 

3560 G0SU8iee:IIIPUTPEItX2.r£ 

3610 GOSUfiieeilNPUTPEMXl.Vl 

3660 cosueieeiiNPurpEM 0. .e 



De plus, les modifications sui- 
vantes permettent I'adaptation 
T07-70 : 

- Supprimer les lignes 10 a 60. 

- Supprimer les lignes 1150 a 
1 1 70 (ne pas pointer les cases 
concemant les huit couleurs pas- 
tels ainsi supprimees). 

- Ligne 100 AW = &HE7C3 

- Remplacer &HA7C0 par 
&HE7C3 aux lignes 12680, 
12700, 12880 et 12900. 

- modifier ainsi les adresses de 
la memoire ecran aux lignes : 
12690 SAVEIvTFORME ",&H 
4000,&H5F40,&HOOOO 

12710 SAVEM "COULEUR ",&H 
4000,&H5F40,&H0000 




c'Br Trfop 
TApo 



CZCMl 



EDITO 




SUITE DU 
N°137 



2690 NEXTI :LINEC 104, 168>-< 136, 168), 8 

2780 FOR 1=1 TO 15 

2718 READX,Y 

2720 LINE-CX,Y),8 

2730 NEXTI 

2735 C0NS0LE22,24,8,8 

2740 BOX U 08, 172)-C132. 180), 8 

2750 LOCATE 13. 23: COLOR 1: PRINT" o": LOCATE 1 

6.23:PRINT"o" 

2760 LINEC184, 168)-C216. 168), 2: REST0RE52 

80 

2770 FOR 1=1 TO 15 

2780 READX,Y 

2790 LINE-CX+8S,Y>,2 

2800 NEXTI 

2810 B0XU8S, 172>-<212, 180>.2 

2820 L0CATEE3, 23: C0L0R15: PRINT"0" : LOCATE 

26,23:PRINT"0" 

2830 B0XC113, 184)-C126. 188). 8 

2848 60XC194, 184)-<285, 192), 2 

2858 F0RI=195 TO 283 STEP 2 

2860 LINE<I, 134) -CI, 192), 2 

2870 C-LAY"A1T1L104SILAD0":NEXTI 

2880 PSETC283, 181 ), 2: LI NEC 283. 138 J-C283, 

176),2:LINEC198, 176)-C207. 176), 2 

2890 PLAY"05T4L6SILASOFAHIRED004SILASOFA 

MIRED003SILAS0FAMIRED002SILAS0FAMIRED001 

SILASOFAMIREDO" 

2900 F0RI=8T02:PLAY"A1T1L301D0PSIPLAPS0P 

FAPMIPRE02PD0PSIPLAPS0PFAPMIPREPD003PD0P 

SIPLAPS0PFAPMIPREPD0P04D0PSIPLAPS0PFAPMI 

PREPD005PD0PSIPLAPS0PFAPMIPREPD0": NEXTI 

2910 F0RI=12 TO 27 STEP 1 : PSETC I *8, 71 ), - 

2:PLAY"A1T1L103SILAFASI":NEXTI 

£93e ATTRB1. 1:L0CATE2. 12: COLOR 1 : PR INT "0" 

2948 L0CATE2, 14: COLORS: PRINT" I " 

2«58 L0CATE2, 16: COLORS: PRINT"L" 

2968 LOCATE36, 1 : COLOR 1 : PR I NT "P " 

2970 L0CATE36, 12: C0L0R2: PRINT" A" 

2988 L0CATE36, 14: C0L0R3: PRINT"N" 

2998 L0CATE36, 16: COLORS: PRINT" I " 

3080 L0CATE36, 18: C0L0R6: PRINT"C" 

3016 ATTRB8,8:L0CATE32,3:C0L0R11:PRINT"M 
ISS" 

3817 L0CATE2, 8: C0L0R3: PRINT "DROPS" 

3818 LOCATE0,24:CONSOLE8,24. 1 

3828 L0CATE2,3:C0L0R8:PRINT"Score: " 

3830 LOCATE3,4:COLOR4:PRINT"0000" 

3835 LOCATE7,28:PRINTGA1*:LOCATE31,20:PR 

INTFI1* 

3040 ' if****************************** 

3842 ' .........*.....,...........•«.••• 

3044 '****«* J E U ....,..».. 

3046 ' *»*»*»***«»»*»*»**************»** 
3048 - ft***************************** 
3050 X=10:Y=6:ATTRB0, 0: XM= 1 0: YM=1 3: Z= 1 

3055 YG=0:SC=0:GU=0:XG=0 

3056 L0CATE2, 1 8: PR INT "ACT I ON" : F = RND 
3857 IFSTRIGC8)THENL0CATE2. 18:PRINT" 

":G0T03868 
3058 PLAY"A1T3L1803SILAS0":L0CATE2, 18:PR 
INT" ":GOTO3056 

3868 LOCATEX, Y:PRINTPAT1*:L0CATEXM;YM: PR 
INT0UV1* 
3061 A=A+F: IFA>S.5THENGOTO3250 

3070 K=STICKCS) 

3071 L0CATE3,4:PRINTUSING"##*#";SC 
3872 IFSC<108THENC=6:GOTO3888 
3073 IF100<SC<200THENC=5:GOTO3088 

3874 IF200<SC<3S8THENC=4:GOTO3888 

3875 IF380<SC<480THENC=3:GOTO3080 
3076 IF400<SC<500THENC=2:GOTO3888 

3880 ON K GOSUB 3248.3248.315.0,3248,3240 
,3240.3200,3240 

3081 Q=INTCRND*C)+1 
3882 IFXG=8THEN3889 

3884 IFQ=1THENYG=YG+1ELSE3889 

3885 IFYO7THEN4880 

3888 LOCATEXG, YG: PRINTGUT*: PLAY" Al T1L503 
DOLASIFADO" 

3889 LOCATEX, Y:PRINTPAT* 
3095 IFYG=5THENG0SUB3499 
3097 XM=XM+Z 

3188 IFXM=7THENZ=1:F0RI=8T028»C:NEXT1 

31 10 IFXM=29THENZ=-1:FORI=0TO28»C:NEXTI 

3120 IFZ=-1THEN0UV*=0UV1*:L0CATEXM,YM:PR 

INT0UV1*:PLAY"A1T1L1SILA":IFXG=8THEN3861 

ELSE3070 

3138 IFZ=1THEN0UV*=0UV2*:L0CATEXM,YM:PRI 

NT0UV2*:PLAY"A1T1L1SILA": IFXG=8THEN386 IE 

LSE3878 

3140 GOTO3070 

3150 IFK=3ANDX<=27THENX=X+l:L0CATEX,Y:PA 

T*=PAT2*:PRINTPAT* 

3160 IFX=28THENG0SUB3188 

3170 RETURN 

3188 IFSTRIG(0)=-1 THENLOCATEX, Y: PR INTPA 

T6»: IFGU>8THENGOSUB5800 

3190 RETURN 

3200 IFK=7ANDX)=9THENX=X-1 : LOCATEX, Y: PAT 

*=PAT1*:PRINTPAT* 

3210 IFX=8THENG0SUB3238 

3228 RETURN 

3238 IFSTRIGC8>=-1 THENLOCATEX, Y: PRINTPA 

T5*: IFGU) 0THENGOSUB5000 

3240 RETURN 

3250 E=INTCRND*3) + l: IFE= 1THENXG=14: G0T03 



070 

3260 IFE=2THENXG=20:GOTO3878 

3278 IFE=3THENXG=26:GOTO3070 

3288 G0T03861 

3499 LOCATEX, Y:PRINTPAT$ 

3588 IF PAT*=PAT2*ANDX=XG-2 THENXG=8:YG= 

8:GOTO3510 

3583 IF PAT*=PAT1*ANDX=XG-1 THENXG=8:YG= 

0:GOTO3510 

3585 GOTO3600 

3510 SC=SC+2:GU=GU+1: IFGU) 3THEN4880 

3520 L0CATEC3+CGU-1)),6:PRINTGR*C18) 

3688 PLAY "DODO": RETURN 

4888 F0RM=8T028: SCREEN, , 15: SCREEN., 1 : SCR 

EEN. . 3: SCREEN, , 15: SCREEN,, 1 : SCREEN, ,3:SC 

REEN., 15:SCREEN,, 1:SCREEN. ,3:SCREEN,, 15: 

SCREEN. . 1 : SCREEN, ,0: PLAY" A1T1L1 1 03DOSILA 

M I REDO" :NEXTM: MI SS=MISS+1: LOCATEXG, YG: PR 

INT" " 

4018 LOCATE31+MISS,5:PRINTGR*C71):GU=0:Y 

G=0:XG=0:LOCATE2,6:PRINT" 

4815 LOCATEX, Y:PRINTPAT* 

4028 IFmSS=4THEN6008ELSE3861 

5000 IF XM=X 0RXH=X-10RXM=X+1 THEN5010 

5005 IFX=8THENH=8 

5886 IFX=28THENH=31 

5087 F0RI=9T021:L0CATEH. I : PRINTGUT*: LOCA 

TEXM. YM:PRINTOUV*:NEXT:GU=0:LOCATE2,6:PR 

INT" ":L0CATEXG,YG+1:PRINT" " 

5008 IFH=3THENLOCATE7.20:PRINTGA1*ELSEIF 
H=31THENLOCATE31,20:PRINTFI1$ 

5009 GOTO7000 

5010 IFX=8THENH=9ELSEH=38 

5028 F0RI=9T012:L0CATEH. I : PRI NTGUT*: LOCA 
TEXM, YM:PRINT0UV*:NEXTI:L0CATE2,6:PRINT" 

5030 lFGU=lTHENSC=SC+3 

5848 IFGU=2THENSC=SC+6 

5050 IFGU=3THENSC=SC+18 

5060 GU=0: RETURN 

5260 DATA172, 180, 168, 180, 168, 194, 174, 194 

, 174,200, 146,200, 146, 194, 152, 194, 152, 188 

, 148. 188, 148, 160 

5278 DATA156, 174, 157, 174, 158, 174, 159, 174 

.168. 174, 161, 174, 162, 174, 163, 174 

5288 DATA136, 188, 138, 182, 138, 186, 137, 192 

, 137, 196, 132, 196, 138, 196, 129. 1 92, 1 18, 19S 

, 189. 196. 102, 196, 182, 192, 181 . 182, 184. 182 

, 184, 168 

6008 FORI=0TO160STEP2:LINECI,0)-CI,208>, 

8:LINEC320-I,0)-C320-I,280),0:NEXTI 

6018 FORI=0TO288STEP2:LINEC8, D-C320, I), 

8: NEXT I 

6028 FORI=£88TO8STEP-l:LINEC0, I)-<328, I) 

,0: NEXTI 

6038 POKE&H2019, 0: SCREEN0, 0, 0: CLS: CONSOL 

E0,24.8.8:QS=QS+l: IFQSMANDSC) 188THEN620 

8 

6048 A*="V0US AVEZ PERDU !!" 

6050 B*="DEUX PETITS CONSEILS:" 

6068 C*="- N'ATTENDEZ PAS D'AVOIR 3 GOUT 

TES":C1*="P0UR LES VIDER. " 

6070 D*="- QUAND LA GOUTTE EST AU NIVEAU 
DE":D1*=" VOTRE SEAU MAIS QU'ELLE N' EST 

PAS":D2*="DEDANS, COUREZ VITE DANS SA DI 

RECTION ":D3*="V0US L'AUREZ PEUT-ETRE !! 

i » 

6088 E*="V0ULEZ-V0US REJOUER "+CHR*C91)+ 

CHR*w9-. + CHR*C124)+CHR*C78)+CHR*C93) 

6085 F*="FRAPPEZ UNE TOUCHE S.V.P" 

6090 F0RI=8T017:L0CATE2,4:C0L0R4:PRINTLE 

FT$C A*. l+I)sBEEPl BEEP: NEXTI 

6180 FOR1=0TO20:LOCATE2.6:COLOR4:PRINTLE 

FT$CB$,1+I):BEEP:BEEP:NEXTI 

6110 FORI=0TO33:LOCATE5,8:COLOR7:PRINTLE 

FT*CC«, 1+I):BEEP:BEEP:NEXTI 

6128 FORI=0TO14:LOCATE2, 10: C0L0R7: PRINTL 

EFT*<C1*, 1+I):BEEP:BEEP:NEXTI 

6130 F0RI=BT039:L0CATE5, 12: C0LOR7: PRINTL 

EFT*<D«, 1 + IM BEEP: BEEPS MEXTI 

6140 FORI=0TO34:LOCATE2, 14: C0L0R7: PRINTL 

EFTJCD1*, 1+1): BEEP: BEEP: NEXTI 

6150 FORI=0TO39:LOCATE2, 16: C0L0R7: PRINTL 

EFT$ ( D2*. 1 + 1): BEEP : BEEP: NEXT I 

6160 FORI=0TO25:LOCATE2, 18: C0L0R7: PRINTL 

EFT*CD3«, 1+I):BEEP:BEEP:NEXTI 

6170 FORI=0TO23:LOCATE2, 21 : COLOR 1: PRINTL 

EFT*CF«, 1+I):BEEP:BEEP:NEXTI 

6180 R*=INKEY«: IFR*=" "THEN6180 

6190 GOTO6500 

6200 '»**»* SCORE SUPERIEUR A 188 »»*** 

6210 IFSO300THENGOTO6480 

6220 A*="BRAV0 ! ! C'est deja aieux , vou 

s auez" 

6230 B*="conpris le »anie»ent. . . " 

6240 C*="Vous ferez sans doute nieux au 

prochain" 

6250 D*="essai " 

6260 F*="Appuyez sur une touche s.v.p" 

6265 SCREEN0,0,0:CLS 

6270 FORI=0TO40:LOCATE8,5:COLOR4:PRINTLE 

FT*CA*,1 + I): BEEP: BEEP: NEXT I 

6280 FORI=0TO22:LOCATE0,7:COLOR4:PRINTLE 

FT*CB$, 1+1): BEEP: BEEP: NEXTI 

6290 FORI=8TO38:LOCATE0,9:COLOR7:PRINTLE 

FT$<C», 1+I):BEEP:BEEP:NEXTI 

6300 FORI=0TO8:LOCATE0, 1 1 : C0L0R7: PRINTLE 

FT*CD*, 1+I):BEEP:BEEP:NEXTI 

6310 FORI = 0TO27:LOCATE0, 13: COLOR 1 : PRI NTL 

EFT*CF«, 1+I):BEEP:BEEP:NEXTI 

6320 A*=INKEY*: IFA*=" "THEN6320 

6330 G0T06580 

6350 '*•** SCORE SUPERIEUR A 300 ♦*»♦♦ 

6400 h*="TPES BIEN !!! continuez c one C 

a" 

6410 B*="vous allez arriver a faire saut 



6420 C$="co»pteur et la station auec ... 

6430 F*="Appuycz sur une touche s.v.p" 

6450 SCREENS, 8, 8:CLS 

6468 FORI=8TO37:LOCATE0, 5: C0L0R4: PRINTLE 

FT*CA«, 1+I):BEEP:BEEP:NEXTI 

6478 FORI=0TO38:LOCATE0.7:COLOR7:PRINTLE 

FT* CB*,1+I): BEEP: BEEP: NEXTI 

6480 FORI=0TO36: LOCATES, 9: C0L0R7: PRINTLE 

FT*CC*, l-i-I): BEEP: BEEP: NEXTI 

6490 FORI=0TO27: LOCATES, 13: C0L0R1 : PRINTL 
EFT*CF$, 1+I):BEEP:BEEP:NEXTI 

6491 A*=INKEY»: IFA*=" "THEN6328 

6495 **** SCORES, NOMS ET RECORDS »»»* 

6580 POKE8.H2019,8:PRINTCHR*C20):SCREEN8, 

0.8: CLS: LOCATE 10, 10: C0L0R4. 0: ATTRB1, 1 : PR 

INT"OIL-PANIC":ATTRBB,0:LOCATE2, 18: COLOR 

3.8:PRINT"V0TRE PRENOM S. V. P"; : INPUTNOM* 

6518 IFLENCNOM*)>10 THENNOM*=MID»CNOM«, 1 

,18) 

6528 F0RA=1 TO 18: IF SOSCCA) THEN 6540 

6538 NEXT:W=8:GOTO6560 

6540 F0RB=9 TO A-l STEP-1 : SCCB+1 )=SCCB) : 

N0M*CB+l)=NOM*CB):NEXT 

6550 SCCA)=SC:NOM$CA)=NOM*:U=A 

6560 CONSOLES, 24: CLS: F0RA=1T018: LOCATE 1, 

5+A:ATTRBl,e:C0L0R6,8:PRINTN0M*CA):C0L0R 

4,6:L0CATE21,5+A:PRINTSCCA):NEXT 

6578 ATTRB1, 1 : L0CATE2, 3: C0L0R6, 8: PR I NT "N 

OM" : L0CATE22, 3: C0L0R12, 8: PRINT "SCORE" : DZ 

= 1 : L0CATE1 5, 28: ATTRB6, 8 

6588 L0CATE1,5+H:ATTRB1.8:C0L0R7,DZ:PRIN 

TN0M*CH):IFDZ=1 THENDZ=8ELSEDZ=1 

6590 POKE&H2019,0:ATTRB0,0:PRINTCHR*C28) 

6600 FORI=0TO24:LOCATE2,21:COLOR1,0:PRIN 

TLEFTtCE*, 1+1 ) : BEEP: BEEP: NEXTI 

6610 A*=INKEY«: IFA*F" "THEN6610 

6620 IFA*="O"THENSC=0:MISS=0:GOTO2320 

6630 '**»*»» CARACTERES PENCHES *»»»«»« 

6650 CLEAR. 481 91 : B=127: F0RI=64678 TO 654 

36 STEP8: J=I -24478: POKEJ, CPEEKC I ) ANDB)*2 

:POKEJ+l, CPEEKCI + l)ANDB)*2:P0KEJ+2, CPEEK 

CH-S)ANDB)*2:POKEJ+3,PEEKCI+3):P0KEJ+4,P 

EEKCI+4):P0KEJ+5,PEEKCI+5)32:P0KEJ+6.PEE 

KCI+6)82:P0KEJ+7,PEEKCI+7)92:NEXTI 

6668 PRINTSPCC48); :P0KE8387, 157:P0KE8388 

,0 

6888 CLS: SCREENS, 8, 8 

6810 P0KE«:H2ei9,8 

6828 A*="C0MME VOUS VOULEZ ..." 

6830 B*="A UNE PROCHAINE FOIS ..." 

6848 C*="Anthon3 et Serge Carre" 

6858 D*="Vous disent au-revoir..." 

6860 E*="Cop»ri9ht Cc) 1986 ." 

6878 FORI=0TO20:LOCATE6, 5: C0L0R4: PRINTLE 

FT$CA*,1+I): BEEP: BEEP: NEXTI 

6880 F0RI=ST024:L0CATE6, 7: C0L0R4: PRINTLE 

FT*CB«, 1+I):BEEP:BEEP:NEXTI 

6898 F0RI=8TO23:LOCATE6,9:C0L0R7:PRINTLE 

FT*C Ct, 1 +1): BEEP : BEEP: NEXT I 

6980 FORI=0TO23:LOCATE6. 1 1 : C0LOR7: PRINTL 
EFT*CD*, 1+I):BEEP:BEEP:NEXTI 

6910 FORI=0TO19:LOCATE6, 15: COLOR l: PRINTL 

EFTtCE*, 1+I):BEEP:BEEP:NEXTI 

6920 B0XC24,32)-C244, 140), 6 

6930 B0XC258,32)-C282, 148), 6 

6935 LINEC34,38)-C34,135),12 

6948 L0CATE33,5:C0L0R4:PRINT"0" 

6950 L0CATE33,6:C0L0R4:PRINT"I" 

6960 L0CATE33,7:C0L0R4:PRINT"L" 

6988 L0CATE33,9:C0L0R7:PRINT"P" 

6981 L0CATE33, 18: C0L0R7: PRINT "A" 

6982 L0CATE33, 1 1 : COLOR 1 : PRINT"N" 

6983 L0CATE33, 12: C0LOR1 : PRINT " I " 

6984 L0CATE33, 13: C0L0R1 : PRINT"C " 

6985 L0CATE32, 15: C0L0R12: PRINT" Cc ) " 
6998 SCREEN, , 4: SCREEN, , 7: SCREEN, , 1 : SCREE 
N, ,4:SCREEN,,7:SCREEN,, 1 : SCREEN, , 4: SCREE 
N. , 7: SCREEN, , 1 : SCREEN, , 8: G0T06998 

6997 REM***»*****«**»**»**»************ 

6998 REM*»* COLERE DES CLIENTS *»***» 

6999 REM***«***«*«««******************* 
7800 IFH=8THENL0CATE7, 20: PRINTGA2*: G0T07 
020 

7010 IFH=31THENLOCATE31,20:PRINTFI2*:GOT 

07030 

7020 FORM=0TO2:FORI=7TO5STEP-l:LOCATEI,2 

S:PRINTGA2*:PLAY"A1T1L1802D0D0":NEXTI:L0 

CATE5,28:PRINTGA1*:PLAY"A1T1L18D0D0":F0R 

1=1 9T016STEP-1: LOCATES, I : PLAY"A1T1L1802D 

ODO":PRINTGA2*+CHR*C10)+CHR*C8)+CHR*C8)+ 

CHR*C8)+" ":NEXTI 

7825 FORI=16TO20:LOCATE5, I : PRINTGA2*: PLA 

Y"A1T1L10O2DODO":NEXTI:LOCATE5,20:PRINTG 

A2t: PLAY" A1T1L10DODO" : F0RI=5T07: LOCATE I, 

20: PLAY"A1T1L10O2DODO":PRINTGA1«: NEXTI :N 

EXTM:GOTO4000 

7B30 FORM=8T02:FORI=31T033:LOCATEI,28:PR 

INTFI2*:PLAY"A1T1L1804DODO": NEXTI: LOCATE 

33,28:PRINTFI1*:PLAY"A1T1L10DODO":FORI=1 

9T016STEP-l:L0CATE33, I : PRINTFI2*+CHR*C 10 

)+CHR*C8)+CHR*C8)+CHR*C8)+" "JNEXTI 

7035 FORI=16TO20:LOCATE33, I : PRINTFI2*: PL 

AY"A1T1L10O4DODO": NEXTI :L0CATE33, 20: PR IN 

TF 12*: PLAY" A1T1L10DODO": FORI =33T03 1STEP- 

1:LOCATEI,28:PLAY"A1T1L10O2DODO":PRINTFI 

1*: NEXTI : NEXTM: GOTO4000 



Ecoutez, je n'ai pas envie de faire 
d'edito. J'ai un mal de dents pas 
possible, j'ai rien a dire, je me fous 
du nouvel Amstrad, la nouvelle 
robe du Commodore m'indiffere et 
si vous n'etes pas content vous 
n'avez qu'a acheter un de ces 
mensuels plein de vide et de cou- 
leurs qui encombrent le rayon 
informatique de votre marchand 
de journaux. Vous y trouverez des 
imitations d'editos plus vrais que 
nature, des simili-programmes a 
peine bugges et meme des faux 
club Hebdogiciel qui, pour 300 Dal- 
les de cotisation annuelle, vous 
donneront le droit de commander 
tres cher des logiciels qui n'exis- 
tent pas encore. 
Comment ? Vous pf6ferez les ori- 
ginaux, surtout quand ils sont 
moins cher que les imitations ? 
Rien a foutre, revenez la semaine 
prochaine, cette semaine je n'ai 
pas envie de faire d'edito. Non, 
mate. 

Gerard Ceccaldu. pardon : di. 






SUPER CHASSEUR 



MSX 



Ou une action d'eclat a bord d'un vieux coucou, vous vau- 
dra I'honneur d'une mission futuriste aux commandes du 
fameux "super chasseur MSX-001". 

„, , . Michel LADEGAILLERIE 

Mode d emploi : 

Ce jeu exceptionnel d'environ 24 Ko, comporte deux tableaux etonnants : 

1er tableau : avant d'avoir epuise carburant et munitions, vous devez, aux 
commandes d'un chasseur a nelice, decoller puis abattre 15 appareils Alle- 
mands qui menacent votre espace aerien. 

Appuyez sur la barre d'espacement pour demarrer votre moteur et decol- 
lez en tirant sur le "manche" (un bon joystick est souhaitable), ou sur la 
louche directionnelle du bas (option clavier). Les causes suivantes seront 
sources d'echecs : 



- Plus de munitions : vous etes mitrailles par I'adversaire, le cockpit vole 
en eclat, lappareil s'ecrase. 

- Plus d'essence : c'est le crash ! 

- L'avion pique trop vers le sol (surveillez I'altimetre) : badaboum ! 

- Perte de Vitesse : vous "decrochez" et patatras ! 

L'acces au second tableau octroie un bonus, qui est fonction du reste even- 
tuel de carburant et de munitions. 

2eme tableau : aux commandes d'un supersonique, vous disposez de 12 
missiles pour abattre 8 appareils ennemis. 

- lorsque votre missile manque I'adversaire, ce dernier tire a son tour un 
missile qu'il vous faut eviter. 

- Vous ne pouvez echapper au missile adverse lorsque vos munitions sont 
epuisees. 

- Votre chasseur tombe et s'ecrase si vous manquez de carburant. 
Nota : le programme signale la (les) ligne(s) d'erreurs eventuelles dans 
les datas de definition des sprites. 



19 REM -- SUPER CHASSEUR -- 

20 REM par M. LADE6A ILLER IE 
30 REN (Avril 1986) 

4B REM 

50 SCREEN 2,2,0 0PEN-6RP: ■ FOR OUTPUT 

ftStl 
60 KEY OFF COLOR IS, 1,1 : CLS : DEFINT B- 
U PEFSNG B,F,M, V,X, Y, Z 

70 PRBWBM80, 10" PRINT tl, "SUPER CHAS 
SEUR" 

80 DRAM"BM42,80 C4 R13E1R2E1R2E1R2E1R 
2E1R3E1R7E1R11E1R18E1R33F1R11F1R7E1R5 
E1R4E1R4E1R1E1R1E1R1E1R1E1R1E1R1E11R1 
E1R1E1R2E1R8D2S1D261D261D261D2G1D261D 
2G1D261D261D3L861L861L7G1L5G1L661L146 
1L6 7H1L9H1L5H1L4H1L4H1L3H1L3" 
90 PA1NT(127,72),4 

100 DRAWBM74.73 C7 R5U1L2R1 4U1L11R31 
U1R12L48R2E1R3 3L3H1L27R1E1R21L3H1L13R 
3E1R5" 

118 PRAWBM 185,72 C5 R17F5L12H1L3H1L 
3H1L1H1E1"PAINT(188,73),5 
120 DRAU"BM102,77 C5 R14E1R16F1R15F1R 
16D1L10M*29,+20L13H1L4H1L4H1L4H1L4H1L 
4H1L4H1L4H1L4H1L3H1L3H1L3H1L3H1L3H1L3 
H1L3U1L2E2U2H2":PAINT(125,77),5 
130 DRAH"BH106,82 C4 R18F1R16E1R7E1R6 
E1R6" , 

148 DRAWBM132.94 C10 R4D1R5L14P1L4R2 
3P1R5L24R5D1R9" 

150 A$=" 9 htP10DGHJDL00HULH" GOSUB 527 
0DRAH"BM60,155":PRINTtl,B*B»="" 
160 A*="sxeolhtsdutKHESRJLFLHO" GOSUB 

5278 :»RAM*BH88, 188" PRINTtl.B* :■••■■ 
170 A*="Gagnez cos galons a bord d'un 

vieux coucou en abattant 15 anions a 
llenands et vous pourrez ensuite pilo 
ter le super chasseur HSX-081" 
180 A»=SPACE*(i8)+A* 
190 LINE(188, 131>-(7B, 116) ,9, B 
200 FOR F-l TO LEN(A*>-9 
210 LINE (173, 130>-(80, 120 >,1,8F: PRINT 

•1, HID*(A*,F, 12> 
220 NEXT 

230 B»="" RESTORE 300 
240 FOR CL-0 TO 43 

250 FOR LE = 1 TO 32READ DCIF 0O255 
THEN 278 ELSE LUf =LU»+CHR$ ( OC ) : DA=DB+ 
OC + 1 NEXT 

260 READ CD: IF CDODfl THEN 278 ELSE 2 
80 
270 COLOR 15, 4,4 SCREENS PRINT"Erreur 

de DBTB 1 igne" ; 388tCL»18, , 
280 8PRITE»<CL>»L0*:L0f»":»A»e 
290 NEXT 

300 DBTB ,,248,255,248,127,128.63,56, 
31, 7,,., 3, 3,,, 62, 254, 62, 252, 68, 248, 56 
,248, 192,,., 128, 128, 2875 
318 DBTB 248,255,248,255,248,127,128, 
63, 56, 31, 7,,,, 1,1, 62, 254, 62, 254, 62, 25 
2. 60, 248, 56, 248, 192,,,, 128, 128, 3698 
328 DBTB ,,,, ,127.120,63,56,31,7, ,, ,1 
,1, , . , , ,252,68,248,56.240,192, , , ,128, 
128,1742 

338 DATA 224,252,248,255,248,127,128, 
63, 56, 31, 7,,,, 96, 96.,,, 248, 62, 252, 68, 

248,58,240,192 3285 

348 DATA ,,.31,248.127,128,63,56,31,7 
.,,..,14,126,62,254,62,252.68,248,56, 
, , ,12,12,2385 
, ,63 



248, 152, 
350 DATA 
, , . , , ,95 
368 DATA 



370 DATA 



. , , ,48,12,3. , 

95 

, ,16,8, 

,63 



,4.2,1, 



380 DATA ,4,4,2 
,, ,,,,,,,,46 

390 DATA ,1,1 
, . , , , 38 



488 DATA 
.128. . , , 

419 DATA 
128, , , , , 

420 PBTA 
28, , , , , , 
438 DATA 
,,.,,,. ,281 

449 DATA 
6,24, , . . 

450 DATA 
64.32,16 
460 DBTB 
28.24;16 
08 
470 DATA 



2.1,1, 



1,1,1,1, 



,1, , . 
,418 



, , ,1, , , 
, ,273 
,,,,liu 
281 

, , , 1 , , 

. . , ,1, , , 



,281 

,,, ,1, ,,,,,,, , 
, , -273 

, , , ,64,192,192 
32,96,192,192, , 



64.64,128 



16,32,64, 



,24,96, 1 



. ,128, 



28,2,6,12, 
,,,,,,. .12 



6,6,3,1,, 



64.96,32, ,,, , 

, , , . ,48,24,24,8 344 

480 DBTB ,13,7,15,31,7,15,,,,,,,, 

,,.64, 192, 192, 248, 192, 224, 192,,,,, 141 

6 

490 DATA , ,17.25,31.2,8,16,96,56, ,27, 

49, i, 24,176,160, ,32, 8, 56, 16, 56, 2 

16,148,128, ,1372 

500 DATA 1,113,40,38, ,16,16,96,128,64 

,16, 36. 74, 112, 1,1,, 4, 148, 164, 72, 16, 32 

,24, 7, 4, 8, 4, 36, 82, 78, 128, 1583 

518 DBTB 6 .14,79. 64, 96,224, 224. 128, . 1 

28,224,64,4,14,38,6.224,248. 112, 66,6, 

15. 31. 7,, 3, 7, 3, 2, 32, 48, 112, 2244 

528 PBTB ,,,,7,15,31,127.255,63,15.3, 

,. ,,,3, 15. 31,63, 255, 255,255, 255. 255, 2 

55,255 .255,63,15,3,2781 



538 PBTB 225.251,255,255,255 

,255, 255,,,,,,, 3, 31, 127, 255, 255, 255, 2 
55,255,255,255, 3729 

549 PBTB 255,255,255,255,255,255,255, 
255,255,63,15,3, , , , ,255,255,255,255,2 
55,255,255,255,255,255,255,255,255,63 
,15,3,5884 

550 DATA 4,14,53,36,68,64,241,64,68,3 
6, 53, 14, 4, 4, 4, 4,,, 128, 128, 64, 64, 224, 6 
4,64,128,128, , , , , ,1755 

560 DATA 128,192,224,192,128,,,,,,,,, 

,,,,,,,,,,,,,,,,,, ,896 

578 DATA 

6, ,,,,,, , 

530 DATA , , , , , 

,224,248 

590 DATA 

0,248,248, 
680 DATA 

,16,16 

610 DATA 



, , , ,7,31,127,252,248,9 

2,28,248,240, 192 1503 

,64,56,31,15,3, ,,,,,,, 
254,63,31,6,1927 

8,24,56,12 

,728 

124,254,146,84,84,56 

,812 

56,124,68,49,16,16, , 

352 

32,112, ,32, , , , , 



628 DATA , , , 

,,,,,,,,,, ,298 

639 DBTB 127,127,127,127,127,255,255, 

255,255,255,255,255,255,255,255,255,2 

55,255,255,255,25 4,254,252,252,248,24 

8,249,249,224,224,192,192,7312 

649 DBTB ,, 13 , 13 , 13, 13, 13, 31, 31", 13, 13 

,13,13,13, ,, , ,128,128,128,132,148,252 

,252, 148, 132, 128, 128, 128,,, 2849 

658 DBTB ,,,,1,7,7,15,31,57,115,39,14 

,4,,,, 32, 112, 228. 286, 156, 184, 248, 224, 

224, 248, 69, 24, 16,,, 2268 

668 DBTB ,,,,,5,2,5,9,17,32,65,2,4,8, 

,,16,32,64,138,4,8,288,248,196,128,12 

8,128,64, , ,1535 

678 DBTB ,,,,1,255,1,3,3,3,255,4,8,8, 

,,,,,,, 254,, 128, 128, 128, 254, 64, 32, 32, 

, ,1593 

688 DBTB ,8,4,2,65,32,16,11,31,35,1,1 

,1,2,,,,,,., 168, 64, 168, 144, 136, 4, 138, 

64,32,16, ,1151 

698 DBTB .4,14,7,19.57,29,15,7,7,15,6 

8.24,8,,,,,, ,128, 224, 224. 249,248, 156, 

286, 228, 112, 56, 16,, 2136 

788 DBTB ,,1,1,1,33,49,63,63,49,33,1, 

1,1,,,,, 176, 176, 176, 176, 176, 248, 248,1 

76, 176, 176, 176, 176,,, 2584 

718 DATA .,,1,7,31,127,63.31,127,62,2 

4,,,,,,,96.240,248,224,240,248,224,19 

2, 224, 112, 62, 30, 12,, 2657 

720 DATA ,,,,63,17,255,255,127,8,16,. 

,,,,,, ,1,131,3,255,255,240, ,,,,,, ,165 

8 

730 DBTB ,,,9,27.63,63,31,31,15,15,7, 

7, 3, 2,,, 12, 14, 14, 28, 184. 248, 224, 192, 2 

24, 224. 248, 248, 96, 6 4,, 2301 

740 IF Tfl>0 THEN 859 

759 LINE(8,132)-(255,191) , 1 , BF 

769 DRAWBH68.149 C9 R2L1D561L1H1U1 B 

M+8,-4" PRINT •l,"oystick (conseille' 



770 DRAW" 
780 DRAW" 
K+4, -5" P 
798 A$=IN 
808 IF mI 
850 
818 IF A* 
E 798 
828 REM 
838 REM - 
848 REM 
858 COLOR 
868 DRAW* 
8.151M74, 
92,191BH1 
149 F1H25 
H248.19 
870 DRAW 
1D4F1D4F1 
D5 BM7.16 
7,188" 
880 DRAW" 
561D461P4 
581D5 BH2 
191 M187, 
890 CIRCL 
988 CIPCL 
918 DRAW" 
4 BM114.1 
4,145 D14 
D2461L4H1 
928 LINE( 
(184,176) 
)-(176.17 
938 LINE( 
42>-(81,l 
2), 9, BF 
948 XC = 91 
958 XC = 15 
968 XC<=12 
978 FOR W 
938 DRAH" 
999 NEXT 
1888 DRAH 

167 D4R2 
71) ,3 
1810 DRBH 

168 D2F1E 
BM129. 17 



BM92, 165" PRINT tl,"OU" 

BM78.181 C9 H1L1G2D2F2R1E1 B 

RINT il.-lavier ?■ 

PUTK1) 

■ "J" OR A*="j" THEN JS=160T 

= "C" OR fl»="c" THEN JS = S ELS 



ler TABLEAU •- 

3,1,1 CLSTA-1 
BM0.166 M67.158 E1M74,136BM6 
185B"H62,191H74.185M180,135M1 
88,185H186,151BH188,136H186. 
5,166BM6,191M71,178 BM183,17 
1" 

BH67.149 H4 BM43.149 F5R3D5F 
D4 BM23,153 F6R2D5F1D5F1D5F1 
5 D6F1D5F1D5F1D6 BM38,191 M6 



7.149 E4 BM211.149 65L3D 

BM231.153 66L2D561D5G1D 

65 D661D5G1P561D8 BM216, 

174), 6,3, , .6 5. 3 

,174), 6, 3, . ,6/5. 3 

145 D14F4R14E4U14H4L14G 
18F4R18E4U18H4L1864 BM15 
4E4IJ14H4L14G4 BM158.149 
1R4" 

176 ) -(183,178), 9, BF LINE 
5,178>,4,BF:LINE(176,176 

41) -(81, 141), 3: LINE (88.1 
4,BF:LINE(88,161>-(81,16 



V0154 GOSUB 5298 
7:YC=154 GOSUB 5288 
7VC=158 GOSUB 5218 
-141 TO 163 STEP 2 

BM150, =H,(3L2" 

"811142,171 U3E1F1D3H1 BM146. 
BM149.167 R2L1P4" PSET(152,1 

"BM117.171 U4D2R2U2D4 BM121. 
1U2H1 BM125.171 U4P1F1G1F1M 
1 U4 BM131.167 R2D1G2D1P2" P 



SET(135,171>,3 

1020 DRAWBM94..165 D2F1D1U1E1U2 BH98. 

165 D4 BM181,169 U4L1R2" : PSET(104 , 169 

>,3 

1030 DRAWBH163.165 L1G1D2F1R1 BM167. 

169 U4L1R2 ":PSET( 165,169), 3 :PSET (169, 

169), 3 

1040 DRAM"BM80,179 U4F2E2D4 BM86.175 

D3F1E1U3 BM98.179 U4F3D1U4 " PSET ( 95 , 1 

79) , 3 

1058 DRBM"BM74,16 Q U2R1L1U2R2 BM78,lt. 

5 D3F1E1U3 BM84.165 L2D2R1L1D2R2 BM86 

,165 D4R2" 

1068 PUT SPRITE 3 , (145, 159) , 8, 26 

1878 PUT SPRITE 8, (128, 147) , 13, 8 

1888 PUT SPRITE 1 , (92, 145 ) , 9 , 5 : PUT SP 

RITE 2, (158,145) ,9,5 

1898 DRBWBM8,44 C5 D57R61 M38.31 LIU 

2L2U1L5D1L2 M8,35 D1L2D1L2G2D2L1D3L1 " 

:PBINT(32,29),5 

1100 DRBH"BM8,182 C12 D47R1D3F1R1F1R1 

F1R2EJ:R4E1R2 M37.143 F2D2L2D1L2D1L2D1 

L2R2U1 M63.144 E9 M62.183 L1U1L60"PA 

INT(2,183),12 

1110 DRAH"BM54,22 C5 H200.22 D1R2P1R1 

D2R1D1 M186.101 M68.101 M58,27 U1R1U2 

R1U1R2"PAINT(68,23>,5 

1128 DRAWBM68, 192 C12 M186.182 M178, 

134 L2U1L8U1L8U1L8U1L8U1L8U1L6H2U7L2D 

7G2L5D1L8D1L8D1L8D1L8D1L8D1L3 M69.183 

■ PUT SPRITE 4, (122,186),1,25:PBINT( 
88, 103), 12 

1130 DRBH"BM255,44 C5 M255.101 M193,l 
01 U1E1 M216.31 R1U2R2U1R5D1R4D1R4F1 

M247,35 D1R2D1R2F2D2R1D4":PBINT(228, 
29), 5 

1148 DRBH-BM255, 102 C12 D46L1D2L1D261 
L2D1L2D1L2U1L5U1L2 M217,143 G2D2R2D1R 
2D1R2D1R2L2H1 M191.144 H9 M192.103 El 

M255.102":PBINT(208,183>,12 
1158 DRBWBM189, 184 C14 R37F29L7U1L8U 
1L8U1L8U1L8U1L6H2U8L2D862L5D1L8D1L8D1 
L8D1L8D1L7E29":PAINT(118,185),14 
1160 PRBH-BM151,109 CI L14U4E1U3E1U3E 
1 11143,76 El M150.62 E5R1E1R2F1 D1F1D7 
61D4S1D461 M151,100"PBINT(158,57),1 
PUT SPRITE 10, (135,99) ,1, 33 :DRBH"BM13 
2,128 CI U5E1U5E1U5E1R11 H137,129":P8 
INT(140, 111) , 1 Helice 
1170 PUT SPRITE 11, (224,93>,18,22:PUT 

SPRITE 12, (248,85),18,23:PUT SPRITE 
13, (249, 191), 18, 24 

1188 DRBH"BM15,8" PRINT tl, "SCORE 880 
00" 

1190 HS»="00999"+MID»(STR*(HS),2,LEN( 
STR*(HS))-1) 

1298 DRBH"BM168,0" PRINT tl, "RECORD " 
♦RI6HT*(HS*,5> 

1218 FOR X=57 TO 197 STEP 18 PSET(X,1 
4),14:NEXT 

1228 REM = De«arra«e du noteur = 
1238 REH 

1240 IF STRI6<0)=0 THEN 1248 
1250 LINE(134,54)-(162,101),5,BFPUT 
SPRITE 10,(9,191).0LINE(130,189)-(14 
8, 128), 14, BF DRBM"BH148,129 C14 L4" 
1268 FOR S=9 TO 13S0UND S.8NEXT 
1278 SOUND 6,15 SOUND 7.55 SOUND 8,16 

SOUND 13,18 SOUND 11,98 
1280 FOR S=89 TO 38 STEP-1:S0UND 11, S 
1290 FOR D=l TO 70 NEXT DPUT SPRITE 

2, , ,5*INT((88-S)/4.7) NEXT S 
1300 REM 

1310 REM -= Decollate •- 
1320 REM 

1338 IF STICK(JS)<>5 THEN 1330 
1340 BL=159 
1350 FOR F=l TO 12 

1360 LINE(90,103+F)-(170,103+F),12 
1370 PUT SPRITE 1 , , , 5* INT (F/l . 3 ) 
1380 FOR D=l TO 555-FJ45 NEXT D 
1390 NEXT F 

1400 XM=248 VH=181PUT SPRITES,., 1 
1410 FOR F=l TO 11 

14 20 LINE(85,115+F)-(126,115tF),12:LI 
NE(128,115tF)-(172.115tF),12:LINE(78. 
875+F*F/8,134.124-F/8)-<97,115*F),12: 
LINE<177-F-F.-8,134.124-Fr8)-(158,115 + 
F),12 

1430 LINE'0,101+F>-<61.35+F/3,101*F.. 
5:LINE(68.5tFy4.181+F)-(186.25-F/4,19 
1+F),5LINE(193.35-F/3.181+F>-(255,19 
1*F).5 BL=AL-.2 PUT SPRITE 3,(145, AD 
1448 GOSUB 5348 
1450 NEXT F 
1460 RESTORE 1520 
1478 FOR f- 1 TO 28 
1488 PEBD B.B C.D.E 

14«8 LINE(A,B>-(C,»),E'AL»AL-.1:PUT S 
PRITE 3,<145,AL) 
1500 IF INT-F 7;=F 7 THEN GOSUB 5340 

1519 NEXT F 

1520 DATA 80,127,125,127,12,129,127,1 
79,127,12,92.132,97,127,12,164,132,15 
8 127. 12, 0,113, 65, 113, 5, 71, 113, 183. 11 
3.5,189,113,255,113,5 

1530 DATA 80,128, 124, 128, 12,'l39. 128, 1 

79. 128, 12, 93, 132, 97, 128, 12, 163, 132, 15 

8,128,12,8,114,65,114,5,71,114,183.11 

4,5,189,114,255,114,5 

1549 DBTB 80,129,119,129,12,136.129,1 

79. 129. 12, 94. 132. 97, 129, 12. 162. 132. 15 







8,129,12,0,115,66,115,5,72,115,182,11 

5,5,188,115,255,115,5 

1550 DATA 88,130,111,138,12,144,138,1 

79,138,12,95,132,97,130,12,161,132,15 

8,138,12,8,116,66,116,5,72,116,182,11 

6,5, 188,116,255,116,5 

1568 DRBH"BM95,131 C12 R8 BM152.131 R 

7F1" 

1578 FOR F=l TO 10 

1580 LINE(0,116*F)-(66.34*F/3,116+F>, 

5:LINE(72.26+F/4,116+F)-(126,116+F),5 

LINE(128,116tF)-(182.5-F/4,116+F),5: 
LINE(188.34-F/3,116+F)-(255,116+F),5 
1590 GOSUB 5340 AL=AL-.1PUT SPRITE 3 
, (145, AL) NEXT 
1688 FOR L=127 TO 134 
1618 .GOSUB 5348F0R F = l TO 4 
1628 READ 8,B 

1638 LINE(A,L)-(B,L),5AL=AL-.1PUT S 
PRITE 3,(145,AL) 
1640 NEXT F 
1650 NEXT L 

1660 DATA 0,70,75,125,129,179,184,255 
,0,70,75,124,138,179,184,255,8,79,75, 
119,136,179,184,255,8,71,75,111,144,1 
79,183,255,8,71,76,183,152,178,183,25 
5 

1678 DATA 0,71,76,95,168,178,183,255, 
8, 72, 76, 87, 168, 178, 182, 255, 8, 72, 76, 79 
,176,178,182,255 
1688 FOR F=l TO 9 

1698 LINE(8,134+F)-(73-F,134+F),5:LIN 
E(181+F,134+F)-(255,134+F),5 
1788 NEXT F 
1718 FOR F=l TO 38 
1728 READ A,B,C 

1738 LINE(A,B)-(C,B), 5: AL=AL-. 1 : PUT S 
PRITE 3, (145, AL) 
1748 NEXT 

1758 DATA 8,144,35,38,144,63,191,144, 
216, 219, 144, 255, 8. 145, 33, 39, 145, 58, 19 
6,145,215,221,145,255 

1769 DATA 9 , 146 , 31 , 39 , 146 , 53 , 20© , 146 , 
215, 223, 146, 25 5, 8, 147, 28, 38, 147, 48, 28 
6,147,217,226,147,255,8,148,26,35,148 
,43 

1778 DATA 211,148,219,228,148,255,9,1 
49, 24, 33, 149, 38, 216, 149, 221, §38, 149, 2 
54, 1,150, 22, 31, 150, 33, 221, 159 1 , 223. 232 
,158,254 

1788 DATA 1,151,28,234,151,253,1,152, 
18,236,152,253,2,153,16,238,153,252,4 
,154, 13, 241, 154, 258 6, 155, 8, 246, 155, 2 
48 

1798 XX»RN»(-(TIHE/18 HOD 100)) 
1800 X=-10V=28M=3Z=142MU=176AA=8 

:VI=14 

1810 REM -- Boucle principale -- 

1820 REM 

1830 IF INT(RND(1)*100)>12*M THEN 185 



48 XX=INT(RND(1)«M*2)-H: VV=INT(RND( 

*M*2)-M 

59 Z=Z*.93 LINE(89,2)-(81,Z),3: IF Z 

168 THEN 8* = SPACE*(5)<-"PLUS DE CARB 

ANT" GOTO 4658 

68 ON STICK(JS) GOTO 1880,1900,1910 

920,1930,1950,1960,1978 

78 H0=8vX=8 VV=8:VI=VI+.160T0 198 

80 VY=-5:H0»2:AL«AL>.4:VI«VIt.3:S«S 

IF S<=20 THEN S=28 
90 GOTO 1988 

98 VX=-5VV=-5 H0=4 : AL=BL+. 1 : GOTO 1 
8 

10 WX=-5:H0»4:80T0 1980 
28 WX=-5 ■ VV=5:H0=4:AL»AL-.l GOTO 19 

38 VV=5 H0 = 1:AL = AL-. 1 l/I*WI -.2:S«S+ 

IF S>=68 THEN S=68 

48 GOTO 1988 

58 VX=5 : MY=5 : AL=AL-.l H0=3 : GOTO 198 



68 VX=5 
78 VX=5 
80 IF AL 
E BLTIME 
98 IF AL 
08 PUT 
PRITE 3, 

PUT SPR 
18 IF VI 
VITESSE" 

¥1 = 15 
28 PUT S 
PUT SP 
UND 11, S 



58 IF 
68 IF 



XI 
VI 
XI 

XI 

78 IF VI 
88 IF Xi 
98 IF XI 
88 IF XI 
IF 



H0=3 GOTO 1988 
VV=-5 : BL=AL*. 1 H0=3 
>159 THEN A»="SURVEILLEZ VO 
TPE" GOTO 4950 
<140 THEN AL=148 
PRITE 8, (128, 147) , 13, HO PUT 
(145, AL) PUT SPRITE 5,(0,19 
ITE 6. (8,191) 

<6 THEN A*="SURVEILLEZ VOTR 
GOTO 4680 ELSE IF VI>15 TH 

PRITE 1. , ,VI :X1 = XX + WX V1=VV 
RITE 2, , ,6+INT( (88-S)/6.2) 

= THEN A'J = 37:60T0 2120 

>=0 THEN 2070 

<0 THEN AV=35 GOTO 2120 

>9 THEN AV=39 GOTO 2129 

>0 THEN 2198 

<B THEN BV=34 GOTO 2128 

>0 THEN AU=40 GOTO 2120 

<0 THEN BV=38 GOTO 2120 

>0 THEN BV=36 
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HELICO 



En veillant constamment a I'approvisionnement de votre 
helicoptere pilleur, risquez votre vie a la recherche des dia- 
mants eparpilles dans les dix salles d'un labyrinthe quasi- 
ment inviolable... 

Emmanuel MAHIAS 

Mode d'emploi : 

Tapez et sauvegardez a la suite les listings 1 (SAVE "HELICO") et 2 
(SAVE"HELI"). Le chargement et lancement de HELICO par 
RUN"HELICO", chargera et lancera automatiquement le programme prin- 
cipal. Ce jeu utilise le joystick et les regies sont incluses. Toutefois, sachez 
que les tirs de votre canon laser s'affectuent par ACTION dans le sens 
du deplacement. 

Ce programme d'environ 28 Ko, demeure compatible TO7-70 par limita- 
tion aux huit couleurs de base et suppression de un ",0" au CONSOLE 
de la ligne 10 du programme principal. 



Br.- 



^l 



THOMSON T09.M05 

TON , 



>%jV&$£ SB , 




LISTING 1 



f, '..J********************************* 

♦ * 

1 '♦ PRESENTA'ION DE HELICO * 

* ♦ 

2 '* par Emmanuel MAHIAS * 

* pour TO? ou M05 * 

3 '* la £0-04 "36 * 

* * 

4 ************************************* 

10 CONSOLES, 24, 0,0! CLS! SCREEN6, 9,0: CLEAR 
. r 32:DEFINTA-Z 

£8 DEFGR*< 5=60. 66. 153. 189. 189, 189. 189, 1 

89 

£5 DEFGR*'. 1 ' = 139, 189, 188, 191, 188. 189, 189 

, 189 

3d DEFGR*<2>=8,255, 0, £55, 0. £55. 0, 

35 DEFGR* < 3 i= 139, 189, 61, 253, 61 , 189, 189, 1 

89 

40 DEFGRt' 4> = 189. 189. 189, 189, 189, 153,66, 

60 

45 H*il i=GP*<0>+" "+GR*!.0i:H*<2>=GR*a:i + 

GR * C 2 ) +GR* ' 3 ) : H* < 3 > =GR* <: 4 i + " " + GR * ( 4 ) 

50 DE"GR*<5 '=63. 64, 159. 191. 191, 190, 188, 1 

89 

55 DEFGR*<6 > =255. 0. £55, £55, £55, 0, £55, 

60 DEFGR* C 7.1=252. 2. 249,253, £49, 2, £52, 

65 DEFGR*<8>=189, 189, 189, 188, 191, 188, 189 

, 189 

70 DEFGR*' 9i=0.0. £54. 1,253. 1.254,9 

75 DEFGR*il0'i = 189, 188, 199, 191, 191,159,64 

89 DEFGR*< 1 1 >=9, 255. 0, 255. £55, 255, 9, 255 

85 DEFGR* < 1 2 i=0. 252. 2. 249. £53, 249, 2, 252 

99 E*<li = GR*<5>+GR*t:6l+GR*<7>:E*(2J = GR*< 

8>+GR*<9>+" "!E*<3>=GR*a8>+GR*<ll>+GR*( 

l£i 

95 DEFGR*' 131 = 189, 189. 139, 139, 139, 189, 18 

9 . 13 9 

199 L*<1>=GR*<8>+" " + L*<2>=GR*<13>+" 

" + L*<:3>=E*<3> 

105 DEFGR* <14>-63, 64, 159, 191, 159. 64, 63, 

110 DEFGR*<15>=255, 8,255. 255. 255,24, 153, 

90 

115 DEFGR* a 6 .''=252, £.249, £53, £49, £.252,0 

120 DEFGR* C 17 >=90, 99. 99, 90, 90 . 90, 90. 90 

125 DEFGR*.: 18i=0,63.64, 191 , 191 . 159,64,63 

130 DEFGR* i: 19>=90, 1 53, 24, 255, 255, £55, 0, £ 

135 DEFGR* 1:20:1=0, £52,2,249, £53, £49, 2, 252 
140 I * ( 1 1 =GR* 1 1 4 > +GR* (1 5 ) +GR* <1 6 ") : I * < 2 > = 
" "+GR*<17>+" ": I*<3>=GR*<:l8>+GR*t:l9'+GR 
*<20> 

145 C*a)=E*a>!C*(2>«L*<£>!C*<3)=E*<3> 
15S DEFGR* C 2 1) =252. 2. 249, 253, 253, 125,61, 
189 

155 DEFGR* (. ££ i = 1 89, 6 1 . 6 1 , £53, £53, £49, £, £ 
5£ 

160 Ota )=GR*<5)+GR*<6>+GR*<21 >i0*<2)«GR 
*<:13> + " "+GR*U3> !0*<3>=GR*<18>+GR*< 11 lu- 
tes' DEFGR* 1 23 > =3, 7, 15.31,63,63, 127, 127 
170 DEFGR*': £4 > =255. 255, £55. £55, 255, 255, 2 
55,255 

175 DEFGR* '25 >= 192, £24. 240, £48, £5£, £52, 2 
54.254 
180 DEFGR* 1: 26 > =255, £55, 255, £30, 7£, 36, 18, 

185 DEFGR*<27>=255,£55.255, 102, 149, 149,9 

0,52 

190 DEFGR*f28.i=£55,£55,£55. 103, 18,36,72, 

144 

195 DEFGR* v £9 > =4. £, 1.0,0,0.0.0 

£99 DEFGR* < 38) = 181,98,32, 153,82,52,24,24 

205 DEFGR*<31>=32,64. 128.0.0,0,0,0 

210 D*=CHR*<8)+CHR*C8)+CHR*C8)+CHR*<18>! 

P*U>=GR*<23>+GR*<24>+GR*<25>:P*<2>-GR*< 

26>+GR*<:£7.i+GR*<:28>:P*i:3:)=GR*(29!+GR*<30 

>+GR#<31) 

212 ' ********************************** 

* * 

213 '* GEMERIQUE * 

* * 

214 *************** ******************** 

215 CLS: SCREEN 15, 8, 8: LOCATES, 9,0 

££0 FOR 1 = 1 TO 3:LOCATE8.8+I,,0:PRINTH*a 

>+" "+E*<I)+° "+L*CI)+" "+I*<I>+" "+C*(I 

> + " "+0*<I>iF0R T=l TO 498:NEXT T:NEXTI 
225 A*="Presente par Emmanuel MAHIAS" 
238 FOR 1=1 TO LEN<A*> 

£35 L0CATE4+I,2, 8iC0L0RINT<RND*15>+l:PRI 
NTMID*':A*, I. U:PLAY"03L5T4A3MI#"!NEXT I 

£40 H*=" pour T09 ou M05 " 

£45 FOR 1=1 TO LEN<A*> 

250 L0CATE4 + I,4,9:C0L0RINT<RND*15:i + l:PRI 
WTMIDJCh*. I, 1 >: PLAY "03L5T4A3FA#": NEXT I 
£55 COLOR". 0:FOR 1=1 TO 3: LOCATES. 8+1, 0: 

PRiNTP*a> + " "+p*a> + " "+p*<:i> + " "+p*a> 

+ " "+P*«> + " "+P*(:l>:F0R T=l TO 488! NEXT 

T: NEXT I 
269 C0L0R6.0: LOCATE 9. £3. 0: PRINT"APPUYEZ 

SUR ONE TOUCHE" 
£65 PLAY"03T5L5PEtt":A*=INkEY*: IF A*="" T 
HEN £70 ELSE £85 

£70 C0L0R15. 0:F0R 1=1 TO 3: LOCATES, 8+1, 
:PRINTH*a > + " "+E*i'I> + " "+L*a) + " "+T*<I 

> + " "+C*ii:> + " "+0*<I>:F0R T=l TO 488IHEX 
T T: NEXT I 

£75 C0L0R0,6:L0CATE 9, 23. 0: PRINT "hPPUYEZ 

SUR UNE TOUCHE" 
£80 PLAY"03T5L5D0#":A*=INKEY*: IF A*="" T 
HEN 255 ELSE 285 

285 FOR 1=70 TO 98: LINE(63. I i-1245, I >, 0: 
PLAY"03T5L5MI#":NEXT 
£90 PLAY"L£4PPP":CLS 
£95 SCREEN, 0,0: LOCATES, 0,0 
£97 *********************************** 

* * 

298 '* REGLES DU JEU * 

» . * 

299 >********************************** 

300 COLOR15.0:FOR 1=1 TO 3: LOCATES, 9+1, 9 
:PRINTH*i:i:> + " "+E*in + " M +L*a> + " "+I*<I 
) + » "+C*(I>+" "+0*(I>:FOR T=l TO 488: NEX 
T T:NEXTI 

305 C0NS0LE4, 24: LOCATE 13, 6,0: COL 0R0, 10: P 
RINT"REGLES DU JEU" : C0L0R3, 



310 PRINT" Vous pilotez un helicopte 
re , et vous devez sortir de plusieurs 

tabsrin- thes. " : C0L0R1 1,0 
315 PRINT"Mais , il vous faudra fairs at 
tention a votre niveau de fuel car celui 
-ci baissetout le temps. Pour remplir les 
reser- voirs , vous devez prendre les 
barils defuel qui sont eparpilles dans 
les labs- rinthes. ":COLOR12,0 
3£0 PRINT"Faites aussi attention a ne pa 
s heurter les mines car cela vous oterai 
t une vie. ":GOSUB490 

3£5 L0CATE9,6:C0L0R13,9:PRINT" Des he 
licopteres mechants vous embe-teront you 
s ctevrez essasez de les detruire , mais 
cela enleve du fuel plus ou moms selo 
n le niveau. ":C0L0R14,0 

330 PRINT"A partir du niveau 4 , vous au 
rez aussi a eviter des tirs de barrages 
, qui risquent de pomper tout votre 
fuel.":C0L0R15,8 

335 PRINT"Au niveau 10 , une surprise vo 
us attend. ":C0L0R7,8 

349 PRINT"Pour passez au niveau suivant 
il vous faudra recuperer un , deux ou 
trois dia-mants selon le niveau. ": G0SUB4 
99 

350 COLOR 5, 81 LOCATES, 6,8! PRINT" 1 — > R 
EVOIR LES REGLES ": LOCATES, 9, 0: PRINT"£ - 
-> JEU " 

355 PLAY"03T5L5A2NI#":H*=INI:EY*: IF h*="" 

THEN 360 ELSE 370 
^60 COLOR 0,5:LOCATE5.6.0:PRINT"1":LOCAT 
E5.9,0:PRINT"2" 
365 PLAY"03T5L5A£FA#":A*=INKEY*: IF A*="" 

THEN 350 ELSE 370 
370 IF A*="l" THEN C0NS0LE8: SCREEN6, 0: CL 
S:GOTO30O ELSE IF A*="2" THEN RUN"HELI" 
ELSE GOTO 359 

409 COLOR7,0:FOR 1=1 TO 3: LOCATES, 8+1, 0: 
PPINTP*(I) + " "+P*a> + " "+PSCI1 + " "+P*<I:' 
+" "+P*(I>+" "+P*(I>:F0R T=l TO 400:NEXT 

T:NEXTI 
405 C0L0R6,0: LOCATE 9, 23, 8: PRI NT"APPUYEZ 

SUR UNE TOUCHE" 
418 PI_AY"03T5L5RE#":A*=INKEY*: IF h*="" T 
HEN 415 ELSE SCREENS, 0: CLS: RETURN 
415 COLOR15,0:FOR 1=1 TO 3: LOCATES, 0+1 , 8 
:PRINTH*a> + " "+E*<I> + " "+L*a> + " " + I*(I 
> + » "+C*<I) + " "+0*<i:>:F0R T=l TO 408:NE;: 
T T:NEXTI 
420 COLORS, 6:L0CATE 9, 23, 0: PRI NT" APPUYEZ 

SUR UNE TOUCHE" 
4£5 PLHY"03T5L5D0#":A*=INKEY*: IF A*="" T 
HEN 400 ELSE SCREEN6. 0: CLS : RETURN 



LISTING 2 



' ************************************ 

* * 

1 '* H H EEE L III CCC 000 * 

« H H E L I C * 

2 ' * HHH EEE L I C * 

* HHEL ICOO * 
7 '* H H EEE LLL III CCC 000 * 

, * 

4 '* Present* par Emmanuel MAHIAS * 

* sur TO 9 * 

5 '* • 

************************************ 

6 ' 

18 CONSOLES , £4, 8, 0, 8: CLS: SCREENS, 8,0! GO 

059997: DEFINT A-Z 

15 ' MISE EN PLACE DU DECOR 

17 CLS!SC=0: VI=3:E=100:LOCATE0,8, 0: PP. I NT 

"PAR DUEL TABLEAU COMMENCE T-ON ?";:INPU 

TT*:THB=VHL'T*>: IF TAB<1 OR TAB>10THEN 1 

7 ELSE CLS:TAB=TAB-1 

£0 TAB=THB+l:ON TAB GOTO £1, ££, £3, 24, £5, 

26, 27. £8, £9, 38 

£1 RESTORE500O0:Xl = l: Yl=£: 141=2: Zl= 18: Q=3 

9:S=2£:HE=0:T=e:GOTO 90 

££ RESTORE581£5:DIA=0:X1=1:Y1=£:W1=33:Z1 

=9:HE=0:T=16:O=39:S=££:GOTO98 

£3 RESTORE50245:DIA=8:X1=1:Y1=2: W1=33:Z1 

=2: HE=0: T=50:Q=39: S=22: GOTO90 

24 RESTORE50388:DIA=0:X1=1:Y1=2:W1=33:Z1 
=2:HE=0:W£=3:Z2=14:EC1=£1:ECL1=1O:EC2=31 
:ECL2=21:G=0:T=75:GOTO90 

25 RESTORE58500:DIA=0:X1=1:Y1=2:U1=33:Z1 
=2:HE=0:U£=36:Z2=22:ECl=3b:ECLl=9:EC2=£l 
:ECL£=16:G=0:T=75:GOTO90 

26 RESTORE50620:DIA=8:X1 = 1:Y1=2: 111 = 19: Zl 
=£:HE=0:M2=37:Z2=10:HE1=O:EC1=20:ECL1=1£ 
:EC£=20:ECL£=13.:G = 0:T=90:E = E+50:GOTO90 
£7 RESTORE50740:DIh=0:X1=1:Y1=£:U1=34:Z1 
=7:HE=0:LA1=7:LAZ1=1:LA£=17:LAZ£=1£:EC1= 
1£:ECL1=10:EC£=£5:ECL£=10:G=O:T=95:E=E+7 
O:GOTO90 

£8 RESTORE5086O:DIh=O:X1=1:Y1=£:M1=38:Z1 

=4:HE=8:LA1=10:LAZ1=9:LA£=19:LhZ£=16:EC1 

=£0:ECL1=16:EC£=6:ECL£=9:G=0:T=95:E=E+10 

8:GOTO90 

£9 RESTORE50980:DIA=0:X1=1:Y1=£: W1=3S:Z1 

=£:HE=O:Lh1=20:LAZ1=9:LA2=2£:LAZ2=14:EC1 

=£1:ECL1=9:EC2=23:ECL£=14:G=8:T=95:E=E+1 

0O:GOTO99 

39 RE'3TORE5119O:DIA=0:Xl = l:Yl=2:Wl=2:Zl = 

10:HE=0:ECc:i>=7:ECL(:i>=6:EC<£>=££:ECL':2:' 

=6 : LH < 1 > =20 : L AZ < 1 > = 1 9 : LA < £ 1 = 30 : LAZ < £ > = 1 8 

:ECc:3>=£3:ECLi;3> = 14:G=0:T = 95:E=E + 150:GOT 

98 

90 FORI=1TO£3:READA*:FORJ=1TO40:B*=MID*< 

A*. J. 1) 

95 IF B*=" " THEN B*= G0T0129 

190 IF B*="S" THEN B* = S* : C0L0R4, : GOTO 1 £ 



105 IF B*="M" THEN B* = M* : C OLOR 1 , 0: GOTO 1 £ 



110 IF B*="E" THEN B*=E*: C0L0R15, 9: G0T01 

29 

115 IF B*="D" THEN B1=D*: C0L0P7, 9 

120 LOCATE J- 1. I.0:PRINTB*:NEXT JlNEXTHCO 

LOR7.0:PLAY"O1T5L5A3DOO2DOO3DOO£SIO1SI" 

125 X=X1 : Y=Yl: 14=141 :Z=Z1 : LOCATEX, Y, 0: PR IN 
TH*i 3:': C0L0R9, 8! LOCATE". Z.0:PRINTH*(3):H 
=5:V=5 

126 IF TAB<4 THEN GOTO 130 

127 IF TAB<7 THEN GOTO 180 
1£8 IF TAB<10 THEN GOTO £50 
129 IF TAB=18 THEN GOTO 670 



139 ' PROGRAMME PRINCIPAL 
135 IF G=l THEN H=3: PSET«. Y '! 
SE H=0 : PSET ( X, Y ) H* I H j . 7, 8 

140 PSETCM,Z>H*<V>,9,8 

145 IF CX = Q AND Y = S>AND DIA=1 

05T5L2A5D0D0RERED0D0RERE03D0D0 

REL2402RELh":G0SUB559:G0T0£9 

150 LOCATES, 8 1 COLORS, 15: PRINT 

OR15,0:PRINTE:E=E-£:IFE(O THEN 

SEL0ChTE12.0:C0L0R6.9:PRINTSC* 

E25,0:PRINTVI* + ": ": LOCATE 18, 0. 

L0CATE30, . : PR I NTV* f VI ) 

155 IF HE=8 THEN G0SU6 338 ELS 

160 AZ=STICK<8> 

165 ON AZ GOSUB370.370.395.395 

45,445 

178 PSET(X,Y)H*<H),7,0: IF STRI 

GOSUB 470 

175 GOTO 130 

177 ' 

1 89 L=W£: M=Z2: LOCATEL . M. : COLO 
TH*(3 j : L0CATEEC1 , ECL1 . 8: C0L0R3 
*: L0CATEEC2. ECL2, 0: PRINTEC*: C 
185 ' 

190 IF G=l THEN H=3: PSET(X, Y) 
LSE H=0 : PSET (X,Y)H*(H), 7,0 

PSET (' 14 . Z >H* C V ) . 9, 0: PSET < L 



THEN PLHY" 
REREDODORE 

FUEL": :C0L 

39599 EL 

+": "iLOCAT 

8:PRINTSC: 

E G0T0168 
,429,420,4 
GO) THEN 



R10.0:PRIN 

0:PRINTEC 

L0R6.8: J=8 

*<"),7,0 E 

mih*(d:>, 10 



195 
,8 

£90 IF <:X=Q AND Y=S>AND DIA=£ THEN PLAY" 

05T5L2A5D0D0RERED0D0RERE03D0DOREREDODORE 

REL2402RELA" : GOSUB550: G0T020 

£05 L0CATE9,9:C0L0R9. 15: PRINT"FUEL" : :C0L 

OR15.0:PRINTE:E=E-3: IFE'0 THEN 39500 EL 

SEL0ChTE1£,0: C0L0R6. 0: PRI NTSC* + ": ":L0CAT 

E£5,0:PRINTVI*+ LOCATE 1 8, 0, 0: PRI NTSC : 

LOCATE30. 0,0: PRINT V*(VI) 

210 IF HE=0 THEN GOSUB 330: GOTO 220 ELSE 

GOTO220 
215 IF HE1=0 THEN G0SUB575: GOTO 220 ELSE 

G0T0££9 
220 IF RND:. 5 THEN GOSUB 615 
225 AZ=STICK(0) 

230 ON AZ G0SUB370.379.395.395,429,4£e,4 
45,445 

£35 PSET':X.Y.'H*<:H>,7,8: IF STRIG(8> THEN 
GOSUB 476 
240 GOTO 199 

250 LOCATEEC1.ECL1.0:COLOR3,0:PRINTEC*:L 
0CATEEC2. ECL2, 0: PRINTEC*: COLORS, 8: LOCHTE 
LA1,LAZ1:COLOR11,0:PRINTLA*:LOCATELA£,LA 
Z£:PRINTLA* 
255 ' 

£60 IF G=l THEN H=3: PSET (X, Y >H*tH> , 7, 8 E 
LSE H«8lPSET<X,¥»H*<H>,7,8 
£65 PSET(14,Z>H*<V>,9,0 

270 IF <X=Q AND Y=S>AND DIA=3 THEN PLAY" 
05T5LEA5D0D0REREDODORERE03DODOREREDODORE 
REL£402RELft" : GOSUB550: GOTOE0 
275 LOCATE0, 8 : COLOR0, 15 : PRINT "FUEL ";: COL 
0R15,8:PRINTE:E=E-4: IFE<0 THEN 39500 EL 

SELOCATE1£,0:COLOR6,0:PRINTSC*+ LOCAT 

E25.0:PRINTVI* + L0CATE18, 0, 0: PRINTSC: 

LOCATE30.0.O:PRINTV*(VI) 

£30 IF HE=0 THEN GOSUB 330: GOTO 285 ELSE 

G0T0285 
235 IF RND :>.5 THEN GOSUB 645 
290 IF RND<.5 THEN GOSUB 615 
£95 AZ=STICK<0> 

300 ON AZ GOSUB370,378.395.395.4£0,42O,4 
45,445 

305 PSET(X, Y>H*(H),7,0: IF STRIGCOj THEN 
GOSUB 470 
310 GOTO 260 

327 ' ********************************** 

* * 

328 '* DEPLACEMENT HELICO-ENNEMI * 

* * 
3£9 •*»♦»♦♦>♦********♦:**♦*»»♦ + *«♦**»♦♦♦ 

338 O=0:P=0:COLOR9,0:O=W-(W<X)+(W>X):P=Z 

-<Z<Y)+(Z>Y> 

335 IF i:U=X+lANDZ=YiORi:W=X-lANDZ=Y)OR':14= 

XANDZ=Y-1 >0R(14=XANDZ=Y+1 ) THEN360 ELSE I 

F SCREEN';0.PK>32 THEN RETURN 

340 LOCATE W,Z,0:PRINT" " 

345 PLAY"01T5L2A1D0RE": IF 14<X THEN V=3:H 

=3:W=0:Z=P:LOCATEW,Z,8:PRINTH*(V>IGOT035 

5 

350 V=8 : 14=0 :Z=P:L0CATEU.Z.8: PRI NTH* <V) 

355 IF U=X AND Z=Y THEN PLAY"04T5L2A3D0R 

ED0RE03D0REFALA02FALAFALA01MISIMISI" ELS 

E RETURN 

368 VI=VI-l:IF VK0 THEN 40000 ELSE LOCA 

TEX.Y,0:PRINT LOCATEW. Z. 0: PRINT LO 

CATEL. M: PRINT X=X1: Y=Y1 : W=W1 : Z=Z1 :L=14 

2 :M=Z2: RETURN 
365 GOTO 139 

367 ' ********************************** 

* * 

368 '* DEPLACEMENT DE L' HELICO * 

* * 

369 ' ********************************** 

378 PT=P0INT(X*8+4,Y*8-1>: IF PT=4 THEN R 

ETURN 

375 IF PT=1 THEN VI=VI-1 : PLAY"01T5L2H1D0 

DOREREDODOREREDO»:IFVI<0 THEN4OO00 ELSE 

LOCATEX, Y,S! PRINT LOCATEW. Z: PRINT" ": 

X=X1 : Y=Y 1 : 14=141 : Z=Z 1 : RETURN 

380 IF PT=7 THEN PLAY"05T5L2h2D0D0REREFA 

FALALhSI SI " : LOCATEX, Y-l . 9: PRINT " " : SC=SC 

+599:DIA=1 

335 IF PT=15 THEN PLAY"T5L203h1D0RESI" : S 

C=SC +50 :E=E+ 188: LOCATEX, Y-l , 0: PR I NT" " 

398 Y=Y-l:PSETi:X,Y+l)" ":RETURN 

395 PT=P0INT".:X+l)*8+l,Y*S+4.i: IF PT=4 TH 

EN RETURN 

400 IF PT=1 THEN VI=V I -1 : PLAY" 1 T5L2A1 DO 

DOREREDODOREREDO":IFVI<0 THEN488ee ELSE 

LOCATEX, Y,8i PRINT LOCATEW, Z: PRINT 

X=X1 : Y=Y1 : W=W1 : Z=Z1 : RETURN 

485 IF PT=7 THEN PLAY"05T5L2A2D0D0REREFA 

FALALASISI":L0CATEX+1,Y,8:PRINT" ":SC=SC 

+588:DIA=1 

418 IF PT=15 THEN PLAY " T5L203A1 DORESI " ! S 

C=SC+5O:E=E+100:LOCATEX+1,Y.0:PRINT" " 

415 G=l:X=X+l:PSET<X-l.Y>" "-.RETURN 

428 PT=P0INT<X*8+4, CY+1 >*3+l > : IFPT=4 THE 

N RETURN 

425 IF PT=1 THEN V I =V I -1 : PLAY " 1 T5L2A 1 DO 

DOREREDODOREREDO": IFVKO THEN40OO0 ELSE 

LOCATEX, Y, Si PRINT" ": LOCATEW. Z: PRINT 

X = Xl:Y = Yl: W=W1 : Z = Z 1 : RETURN 



430 IF PT=7 THEN PLAY"05T5L2A2DODOREREFh 

FALALhSISI" i LOCATEX, Y+l, 8! PR I NT SC=S 

L+500:DIA=1 

4^5 IF PT=15 THEN PLAY"T5L203A1D0RESI " : S 

C=SC +50 :E=E + 1 00: LOCATEX. Y+ 1.0: PR I NT" " 

440 Y=Y+l:PSET>'X,Y-D" "IRETURN 

445 PT=P0INTO'X-l >*8+l , Y*8+4>: IFPT=4 THE 

N RETURN 

450 IF PT=1 THEN VI=V I -1 : PLAY " 1 T5L2A1 DO 

DOREREDODOREREDO": IFVK8 THEN48888 ELSE 

LOCATEX. Y.8:PRINT LOCATEW, Z: PRINT" ": 

X=Xl:Y=Yl:U=Wl:Z=Zl: RETURN 

455 IF PT=7 THEN PLAY"05T5L2A£DODOREREFA 

FALALAS I S I " : LOCATEX- 1 . Y . 6 : PR I NT SC=SC 

+509:DIA=1 

460 IF PT=15 THEN PLAY"T5L£03A1 DORES I" : S 
C=SC+50:E=E+190:LOCATEX-1.Y,8:PRINT" " 
465 G=9:X=X-l:PSET(X+l,Y>" ":RETURN 

467 ' ********************************** 

* * 

468 '* TIR DE L'HELICO » 

* * 

469 ' ********************************** 

478 E=E-(98+T>: IF MK4 THENON AZ GOTO 47 

£,47£,500,47£,475,47£.500.47£ ELSE RETUR 

N 

472 RETURN 

475 Y2=Y*8+8:F0R I=Y2 TO 199: LINE<. X*3+4, 

Y£)-(X*8+4, I •>, 13:PLAY"T2L205A3SI " 

480 PT=P0INT(X*8+4, 1+1): IF PT=-1 THEN NE 

XT I 

485 IF PT=4 OR PT=7 OR PT=9 OR PT=10 THE 

NG0T0495 

490 IF PT=1 OR PT=15 THEN LOCATEX, INT< I. 

8)+l,B:PRINT" " 

495 LINE(X*8+4,Y2)-<X*8 + 4, I).-l : RETURN 

500 M = MI + l:IF AZ=3 OR AZ=7 THEN 510 ELS 

E IF AZ=1 OR AZ=5 AND TAB>4 THEN 530 

505 RETURN 

510 IF AZ=7 THEN 520ELSE FOR I=X*8+8 TO 

319:LINE'X*8+8,Y*8+4)-(I.Y*8+4>, 13: PLAY" 

T£L£05A3SI":PT=P0INT(I+1, Y*8+4): IF PT=-1 

THENNEXT 
513 IF PT=1 THEN SC=SC+50: PLAY"A3T5L£03D 
0RE":LINE(X*3+8, Y*3+4>-(I. Y*8+4 > , -1 : LOCA 

TEINT'.:i '8) + l,Y,9:PRINT RETURN 

515 IF PT = 9 THEN HE= 1 : PLAY "04T5L5D0D0SI S 

IO5FAFAMIMI":SC=SC+50:LOCATEW,Z,0:PRINT" 

": LINE' X*8 + 3, Y*8 + 4)-i: 1, Y*8 + 4>, -1 : RETURN 

ELSE LINE<X*8+8,Y*8 + 4;-<I, Y*8 + 4>, -1:RET 

URN 

517 IF PT=10THEN HE1= 1 : PLAY " 04T5L5D0D03I 
SIO5FAFAMIMI":SC=SC+50:LOCATEM,L,8:PRINT 

LI NE ( X*S + S . Y*8+4) -< I , Y*S + 4 > , - 1 : RETUR 

N ELSE LINE<:X*8 + 8,Y*8+4:i-c:i, Y*8+4>,-l:RE 
TURN 

528 FOR I=X*8-1 TO STEP-1 : L INE <X*8-1 , Y 
*8+4 i-CI, Y*8+4>, 13:PLAY"T2L205A3SI" :PT=P 
OINTvI-l, Y*8+4>: IF PT=-1 THEN NEXT 
523 IF PT=1 THEN SC=SC+50: PLAY"A3T5L203D 
ORE " : L I NE < X*8- 1 , Y*8+4 ) - < I . Y*8 + 4 .1 , - 1 : LOCA 
TEINTi I/8i-l,Y,0:PRINT" ": RETURN 
525 IF PT=9 THEN HE= 1 : PLAY "04T5L5D0D0S I S 
I05FAFAMIMI " : SC=SC + 50 : LOCATEW. Z. 0: PRI NT " 
":LINE(X*8-l,Y*8+4>-a.Y*8+4>.-l: RETURN 
ELSE LINE<X*8-1, Y*8+4)-U, Y*8+4), -1 : RET 
URN 

527 IF PT=18THEN HE1 = 1 : PLAY"04T5L5D0D0SI 
SI05FAFAMIM1":SC=SC+58:L0CATEL,M,8:PRINT 

LINEO!*8-l,Y*8+4)-<I. Y*8+4 ::■ , -1 : RETUR 

N ELSE LINE(X*8-1, Y*8+4)-(I, Y*3+4),-l :RE 
TURN 

547 ' ********************************** 

* * 

548 '* CHANGEMENT DE TABLEAU * 

* * 

549 'ft******************************** 

550 FOR 1=0 TO 199 STEP 2: LINEC8, I >-<319 
,I>,-l:LINEC0, 199-1) -(31 9. 199-1), 8 

555 PLAY"01A5T5L2D0": NEXT: CLS 

560 C0L0R0, 15:L0CATE9,5,8:PRINT"CHANGEME 

NT DE TABLEAU" I COLORS, 9! LOCATES, 9,81 PRIN 

T"V0US ARRIVEZ AU TABLEAU " : : C0L0R9, 0: PR 

INTTAB+1 

565 COLOR0. ll:L0CATE5. 13. 0: PRINT" VOTRE S 

CORE EST DE ";: C0L0R1 1, 0: PRINTSC+E: COLOR 

0,6:LOCATE7, 17, 0: PRINT" IL VOUS RESTE ":: 

COLORS, 8:PRINTVI; I COLORS, 6 1 PR I NT" "VIE" 

570 SC=SC+E:C0L0R6,8:F0R 1=1 TO 2888:NEX 

T:RETURN 

572 '********************************** 

* * 

573 '* DEPLACEMENT £eme HELICO ENNEM1 * 

* * 

574 ' ********************************** 

575 R=8 : T=0 : COLOR 1 0, : R=L- <■. L< X > + ( L> X ) : T= 
N-<(1<X)+<H>X) 

530 IF (L=X+1ANDM=Y>0R(L=X-1ANDM=Y>0RCL= 

XANDM=Y-KiORa=XANDM=Y + l.i THEN605 ELSE I 

F SCREEN(R,T><>32 THEN RETURN 

585 LOCATE L, M, 0: PRINT" " 

590 PLAY"01T5L2A1D0RE": IF L<X THEN D=3:H 

= 3:L=R:M=T:LOCATEL,M.0:PRINTH*':d:i:GOTO60 

6 

595 D=0 : L=R :M=T: LOCATEL. M.8: PR I NTH*<D> 

686 IF L=X AND M=Y THEN PLAY"04T5L£A3D0P 

EDORE03DOREFALA02FALAFALA01MISIMISI" ELS 

E RETURN 

695 VI=VI-l:IF VK9 THEN 48890 ELSE LOCA 

TEX,Y.8:PRINT LOCATEL, M, 0: PRINT" ":L0 

CATEW.Z: PRINT" " : X=X1 : Y=Y1 : W=W1 :Z=Z1:L=W 

2:M=Z2:RETURN 

610 GOTO 198 

61£ '********************************** 



613 



LASERS ENNEMI 



614 ************************************ 
' ECLAIRS 

615 IF ECLAIR=0 THEN ECLAIR=1 ELSE ECLAI 
R=8 

6£8 IF ECLAIR=1 THEN 635 

625 IF ECLAIR=0 THEN C0L0R3, 0: PLAY"05T5L 

£A7MI":L0CATEEC1,ECL1:PRINTEC*:L0CATEEC2 

,ECL2:PRINTEC* 
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CANON-WRITER 



CANON X07 



De la plus belle plume de votre imprimante X-710, realisez 
de somptueux textes manuscrits... 

Mathieu MARCIACQ 



Mode d'emploi : 

Ce traitement de texte singulier, permettant I'ecriture "manuscrite" a I'aide 

de 1'imprimante graphique X-710, necessite I'extension memoire 16 Ko. 

- Tapez tout d'abord le listing 1, faites FSET 10000 avant lancement et 
entrez ligne par ligne les datas des lettres du listing 2 (sans les espaces). 
Specifiez a la demande de I'ordinateur, le numero de chaque fichier, ou 
bien RETURN si vous desirez interrompre momentanement votre saisie. 
• Tapez et sauvegardez le listing 3 (LOADER). 

- Tapez le listing 4 en prenant garde aux caracteres entre guillements des 
lignes suivantes, a taper en mode GRPH : 

Ligne 40 : les caracteres ",", "." et "K". 

Ligne 45 : le caractere "F". 

Ligne 46 : les caracteres "2" et "N". 

Faites RUN apres avoir debranche la prise REMOTE du magnetophone 

et place celui-ci en mode enregistrement a la suite de LOADER. Les fichiers 

de donnees du listing 2 seront ainsi sauvegardees. 

- Tapez et sauvegardez a la suite de ces donnees, le listing 5 (MAKER), 
en prenant garde a la saisie de la ligne 5001 ou le signe "_" est un 
CHR$(95). 

- Tapez et sauvegardez a sa suite le listing 6 (PRINTER), en tapant en 
mode GRPH les caracteres entre guillemets des lignes suivantes : 
Ligne 5100 : ",", ".", "K" et "F". 

ligne 5110 : "2" et "N". 

Lors de la premiere utilisation, chargez et lancez le programme LOADER 
apres un FSET 10000 (chargement des fichiers). Des la fin du chargement, 
vous pouvez utiliser le traitement de texte CANOi^-WRITER (programmes 
MAKER et PRINTER). 

- MAKER : editeur de textes 

Apes lancement, donnez le nom du fichier qui contiendra le texte (avec 
le suffixe M dans le DIRectory). Apres quelques secondes de patience, 
un ecran vide apparait avec un curseur clignotant. Le texte peut alors etre 
tape au kilometre (le programme d'impression se chargeant de dissocier 
les mots correctement). Vous disposez des commandes suivantes : 



CLR (SHIFT/HOME) : 

DEL : 

INS: 

CTRL/Q : 

CTRL/F : 

CTRL/W : 

CTRL/T : 

CTRL/A : 
CTRL/E : 



supprime le texte en memoire. 

efface le caractere sous le curseur. 

insere un caractere sous le curseur. 

pour abandonner (QUIT). 

pour aller a la fin du texte. 

sauvegarde le texte en memoire (WRITE). 

lit le texte en memoire (TAKE), dont le nom de 

fichier a ete prealablement specifie. 

commute majuscules/minuscules. 

efface le curseur a la fin du texte. 



ii M'ESTpaXTpe 

Sol M£Tf££, ft. N'i 

A Q& D£$ TJZKV/HU 




Le programme etant assez lent pour I'insertion des caracteres, il est recom- 
mande d'utiliser les espaces laisses par les retours-chariot. 
Si le programme semble parfois bloque, attendez patiemment le tasse- 
ment de ses chaines de caracteres, puis sauvez le texte, quittez par CTRL/Q 
et relisez-le. 

Une fois le texte sauvegarde, stoppez par ON/BREAK le programme, au 
moment ou celui-ci demande le nom du fichier (et a cet instant precis, sous 
peine de mauvaises surprises si vous ne faites pas immediatement POKE 
186,20). 

Vous pouvez alors charger le programme PRINTER, afin d'admirer la com- 
position de votre texte sur I'imprimante X-710. 
- PRINTER : programme d'impression manuscrite des textes 
Apres lancement, entrez le nom du fichier a imprimer et attendez stolque- 
ment la sortie du chef d'oeuvre. Sachez que la vitesse d'impression de 
1'imprimante se trouve considerablement ralentie, mais que le resultat en 
vaut la peine (voir exemple...). 

Ce programme d'impression dispose lui aussi de mots de commandes a 
placer entre "crochets" et a incorporer entre deux retours-chariot du texte 
a imprimer : 



Ln: 

PLEIN : 
NORMAL 
TABULE : 
COL n : 
CENTRE 
INTER n : 
TAB n : 
DEB n 
BIG n : 



points de a 480). 



HOME 



retourne au debut du texte. 



largeur de la colonne d'impression (n 

ecriture pleine page (bien encadree). 

ecriture normale, c'est a dire tabulee a gauche. 

ecriture tabulee a droite (pour les dates). 

couleur n d'impression. 

centrage du texte. 

espacement n entre les lignes. 

espacement n (decimales permises). 

marge n de debut d'ecriture. 

n = coefficient de multiplication de la taille des lettres (nom- 

bre entier souhaite...). 
Ces mots cles qui n'apparaissent pas a I'impression, peuvent-etre speci- 
fies n'importe oil dans le texte. 
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TAPE? TO* 




LISTING 1 



o clearioo:definta-z 

10 CLS 

20 LINEINPUT-Numero du -fichi* 

IFA*=- -THENEND 

30 I=UAL(A«> : IP=I 

40 D I MA (255) 

50 P=0 

60 PRINTRIGHT*( " OOO" +HEX* (P) , 

INPUT". 01234367 >"l 



69 IFA«="-THEN200 

70 F0RI=1T0LEN(A«)STEP2 

80 XS-MIDSIA*, 1,2) : X=VAL ( "fcH" »X«) :ACP)=X 

:P=P+l :next 

90 1FLEN(A*)< >16THEN200 

100 G0T060 

200 INIII1 ,CHR*1 IP) ,P 

210 F0RJ-0T0P-l:0UT*l,A(J> : NEXT : ERASEA: R 

UN 

300 RESUME600 

600 NEXT: END 

1000 F0RI=OT0235:0NERR0RGOT05O0 

101O INITttl ,CHRS( I ) : PRINT I! : NEXT: END 



LISTING 2 



0000-E3 E3 8F 80 80 80 
Fichier : 33 

0000-E3 E3 89 7F E3 E3 7F 7F 

0008-81 7F 81 81 7F 81 E3 E3 

0010-80 83 E3 E3 80 93 E3 E3 

0018-88 6B 80 80 
Fichier : 39 

0000-E3 E3 80 8E E3 E3 82 81 

0008-82 81 81 81 81 82 80 81 

0010-E3 E3 7F 6C 80 80 
Fichier : 40 

0000-E3 E3 89 75 E3 E3 7E 82 

0008-7E 83 7F 82 7F 82 7F 82 

0010-80 88 81 83 81 82 81 83 

0018-82 82 82 82 E3 E3 84 6C 
0020-80 80 
Fichier : 41 

0000-E3 E3 84 75 E3 E3 82 82 

0008-82 83 82 82 81 82 81 82 

0010-80 88 7F 83 7F 82 7F 83 

0018-7E 82 7E 82 E3 E3 89 6C 
0020-80 80 
Fichier : 42 

0000-E3 E3 83 80 E3 'E3 84 88 

0008-7E 7C 7E 84 84 78 E3 63 

0010-83 80 80 80 
Fichier : 43 

0000-E3 E3 83 84 E3 E3 86 80 

0008-7D 80 80 84 80 78 E3 E3 

0010-86 80 80 80 
Fichier : 44 

0000-E3 E3 87 80 E3 E3 80 7F 

0008-80 7F 7F 7E 7F 7F 7E 7F 

0010-7F 7F 7F 80 E3 E3 8F 87 
0018-80 80 
Fichier : 45 

0000-E3 E3 83 84 E3 E3 86 80 

000B-E3 E3 83 7C 80 80 
Fichier : 46 

0000-E3 E3 87 80 E3 E3 81 81 

0008-81 7F 7F 7F 7F 81 E3 E3 

0010-8C 80 80 80 
Fichier : 47 

0000-E3 E3 83 84 E3 E3 86 80 

0008-E3 E3 7D 7E E3 E3 81 7F 



0010-7F 7F 7F 81 81 81 E3 E3 

0018-80 84 E3 E3 81 81 7F 81 

0020-7F 7F 81 7F E3 E3 87 7A 
0028-80 80 
Fichier : 48 

0000-E3 E3 84 87 E3 E3 80 84 

0008-81 84 81 82 82 82 82 81 

0010-82 7E 81 7E 81 7E 80 78 

0018-7F 7E 7F 7F 7F 7F 7E 7E 

0020-7F 80 7E 81 7F 81 7F 85 

0028-E3 E3 8D 79 80 80 
Fichier : 49 

0000-E3 E3 8B 80 E3 E3 80 94 

0008-7E 7C 7D 7D 7F 7F 7F 80 

0010-E3 E3 8A 74 80 80 
Fichier : 50 

0000-E3 E3 87 8C E3 E3 7F 80 

0008-7E 82 80 81 81 81 83 83 

0010-82 81 81 80 82 7F 81 7E 

0018-80 7A 7F 7C 7F 7E 7E 7D 

0020-7D 7E 7F 80 7F 81 81 80 

0028-83 7F 83 80 84 80 82 81 

0030-81 81 80 82 7F 81 E3 E3 

0038-84 7B 80 80 
Fi ch ier : 51 



0020-81 82 80 81 7F 82 7F 82 

O028-7E 81 7D 80 7F 80 7E 7F 

0030-E3 E3 8D 77 80 80 
Fichier : 55 

0000-E3 E3 87 80 E3 E3 7F 82 

0008-80 83 81 84 81 83 81 82 

0010-81 82 81 82 83 82 7C 7F 

0018-7C 80 7E 81 E3 E3 80 76 

0020-E3 E3 82 81 81 80 83 7F 

0028-81 80 82 81 E3 E3 84 75 
0030-80 80 
Fichier : 56 



0000-E3 E3 84 
0008-81 82 82 
0010-83 83 81 
0018-7C 80 7E 
0020-84 7D 81 
0028-81 7F 80 
0030-7D 7F 7F 
0038-E3 E3 8E 
F ich ier : 57 



83 E3 E3 80 82 

82 82 81 81 81 

82 80 83 7E 82 

7E 7F 7D 81 7E 

7F 82 7F 81 7F 

7E 7F 7D 7F 7F 

80 7D 81 7E 82 
7D 80 80 



0000-E3 E3 85 
0008-81 7E 82 
0010-81 81 81 
0018-7E 82 7E 
0020-82 81 81 
0028-7F 82 7F 
0030-7F 7F 7E 
0038-E3 E3 8D 
Fichier : 52 



84 E3 E3 80 7F 

7F 82 80 82 81 

82 80 81 7F 83 

81 7D 80 83 80 

81 81 82 80 82 

81 7F 81 7E 80 

7E 7F 7E 80 7E 
72 80 80 



0000-E3 E3 87 95 E3 E3 81 7F 

0008-82 7C 81 7D 80 7E 7F 7D 

0010-7F 7E 7E 7E 7D 7F 82 80 

0018-83 7E 83 80 82 82 80 81 

0020-7F 81 7F 7F 80 7C E3 E3 

0028-85 81 80 80 
F ich ier : 53 

0000-E3 E3 84 84 E3 E3 81 7D 

0008-82 7F 84 80 81 81 81 83 

0010-80 82 7F 82 7E 82 7E 81 

0018-7F 80 7F 7F 80 88 7E 82 

0020-82 7E 83 7F 82 7F 82 80 

0028-82 81 81 81 80 81 E3 E3 

0030-83 6D 80 80 
Fichier : 54 

0000-E3 E3 8E 94 E3 E3 7F 80 

0008-7E 80 7D 7F 7E 7D 7F 7E 

0010-7F 7D 80 7E 80 7A 81 7E 

0018-82 7F 83 80 82 81 81 81 



0000-E3 E3 85 85 E3 E3 7F 7F 

0008-80 7E 82 7E 81 80 82 81 

0010-82 81 82 83 81 84 80 86 

0018-80 81 7F 82 7E 82 7E 80 

0020-7E 7F 7F 7F 7F 7E 80 7E 

0028-80 7E 82 7E 82 80 82 81 

0030-82 82 81 82 E3 E3 83 71 
0038-80 80 
Fichier : 58 

0000-E3 E3 8D 80 E3 E3 7F 81 

0008-81 81 81 7F 7F 7F E3 E3 

0010-80 86 E3 E3 7F 81 81 81 

0018-81 7F 7F 7F E3 E3 8B 7A 
0020-80 80 
Fichier : 59 

0000-E3 E3 87 80 E3 E3 80 7E 

0008-7F 7E 7F 7F 7E 7F 7F 7F 

0010-7F 80 E3 E3 86 89 E3 E3 

0018-7F 81 81 81 81 7F 7F 7F 

0020-E3 E3 89 7E 80 80 

Fichier : 61 

0000-E3 E3 83 82 E3 E3 86 80 

0008-E3 E3 80 84 E3 E3 7A 80 

0010-E3 E3 89 7A 80 80 

Fichier : 63 

0000-E3 E3 8D 7F E3 E3 7F 7F 

0008-81 7F 81 81 7F 81 E3 E3 

0010-80 83 E3 E3 80 87 84 81 

0018-81 81 81 82 81 82 80 81 

0020-7F 83 7E 82 7D 80 76 7F 

0028-7F 7F 7F 7E 7F 7E 81 7E 

0030-81 7F E3 E3 8F 74 80 80 



0038- 
F i ch ier 

0000-E3 
0008-7F 
0010-82 
0018-81 
0020-80 
0028-E3 
0030-7E 
0038-7F 
0040-63 
F ich ier 
0000-E3 
0008-7F 
0010-81 
' 0018-7E 
0020-82 
0028-E3 
0030-80 
0038-83 
0040-7F 
0048-83 
0050-80 
0058-7F 
0060-7F 
0068-84 
Fichier 

0000-63 
0008-7E 
0010-89 
0018-7E 
0020-7E 
0028-81 
0030-80 
0038-63 
0040-80 
F ich ier 



63 85 
80 76 

80 83 
7D 81 
83 76 
63 85 
7F 7D 
80 76 
E3 83 
: 66 

63 88 

81 7E 
80 82 

82 7D 
82 82 
63 81 
82 81 
7D 81 
7F 7F 

80 82 
7F 7F 

81 82 
7F 63 
80 80 
: 67 

63 84 
7E 80 

80 82 

81 7F 
7D 80 
7F 84 

82 7F 
E3 81 
80 

: 68 



85 E3 E3 7F 81 
7E 80 7D 81 7F 
83 81 91 81 70 
7F 83 80 82 82 
81 7F 80 7E 7F 

86 E3 63 7F 7F 
80 7E 81 7E 81 
7E E3 E3 8B 77 
80 80 80 



81 E3 

80 80 

81 81 

81 7F 
80 E3 
7F 7E 
83 82 
7E 80 
80 7F 
7F 81 
7E 7E 

82 81 
E3 80 
80 



E3 81 
7E 81 
82 80 81 
82 80 82 
63 7B 80 
7E 76 82 
82 85 80 
7D 7F 7E 
81 81 
7F 81 
7E 7E 80 
80 81 7F 
7F 63 63 



81 
7F 



81 
7D 



94 E3 E3 7E 80 

7E 81 7E 83 7E 

83 80 82 7F 82 

80 7D 7F 7D 7D 

79 81 7D 81 7E 

80 82 81 81 81 

81 7E 80 7F 7F 
7C E3 E3 86 80 



0000- 
0008- 
0010- 
0018- 
0020- 
0028- 
0030- 
0038- 
0040- 
0048- 
0050- 
0058- 
0060- 
Fich: 



E3 63 8B 
7F 80 7F 

82 80 82 
76 7F 7F 
80 85 81 

83 7F 83 
7F 7D 76 
76 81 7F 

80 7F 81 

81 81 81 
76 84 7D 
8B 70 63 
80 80 

er : 69 



0000-63 
0008-7B 
0010-83 
0018-76 
0020-7B 
0028-82 
0030-7D 
0038-82 
0040-80 
0048-80 
0050-E3 
F ich ier 



63 8D 
80 7D 
7D 86 
82 76 
7D 7F 

80 81 
7F 7F 
7C 83 

81 76 
7F 81 
E3 89 
: 70 



8C E3 
81 80 
7F 80 

80 7E 

81 82 
7D 82 
7D 7E 
81 76 
7F 81 
81 81 
83 7F 
63 82 



93 63 
7F 76 
80 83 

80 7F 
76 80 

81 80 
7F 7F 
80 82 

82 7F 
7F E3 
80 80 



E3 7E 76 
82 81 81 
7D 7F 7F 
81 7F 81 
81 83 80 
7D SO 70 
7F 7C 80 

81 7F 7F 

80 82 81 

82 80 84 

81 E3 E3 
7F 82 80 



63 7F 81 

76 7F 76 

81 81 82 

7F 76 7F 

7F 82 76 

81 76 81 

7D 80 7E 

81 81 82 

80 7E 7F 
E3 81 
80 



0030-E3 

0038-80 

0040-82 

0048-80 

0050-E3 

0058-80 

0060-7E 

0068-81 

0070-80 

0078- 

Fi ch i er 

0000-E3 

0008-7F 

0010-81 

0018-82 

0020-80 

0028-7E 

0O3O-8O 

0O38-83 

0040-7F 

0048-7F 

0050-84 

0058- 

F ich ier 

0000-63 

0008-7F 

0010-80 

0018-82 

0020-82 

0028-7D 

0030-76 

0038-7F 

0040-86 

0048-82 

0050-7F 

0058-7E 

0060-80 

0068-S1 

0070-7F 

0078-7A 

0080-80 

0088-84 

0090- 

F ichier 



E3 76 

7C 81 

81 81 

7F 81 

63 7C 

7F 80 

80 7F 

81 82 



: 71 

E3 88 

80 7F 
7F 82 

81 81 
81 7F 
7F 7D 
7F 81 
83 7F 
7E 7E 
81 7F 
81 85 



E3 8A 
7F 7E 
81 82 
7F 81 

81 80 
7D 7F 
7B 7F 

82 80 

80 82 
82 85 

81 7F 
7D 7F 
7B 82 

82 7F 
7F 80 
81 E3 
85 81 



7E 
80 



81 7F 80 76 

7F 82 7F 81 

81 7F 81 7F 7F 
7F 81 7F 80 7F 

82 63 63 82 7F 
7E 80 7F 7E 7F 
81 7F 81 80 81 
80 81 7F 53 63 
53 86 80 80 80 



8A E3 

7F 80 

7F 82 

81 81 

81 76 
7D 80 
76 82 
7E 7F 
75 7E 

82 81 
81 83 



91 E3 

80 7F 
82 81 
7F 83 
82 7F 
7D 7F 
7F 7E 

81 81 
81 82 
85 80 

80 7F 
7E 75 
76 83 

81 7F 
76 81 
53 81 
81 81 
63 86 



E3 7F 81 
7E 81 7E 
7F 81 80 
82 80 81 

81 7E 7F 
7F 7F 7F 
7F 84 80 
7D 7F 7E 
7F 7F 80 

82 81 81 
81 80 80 



E3 80 7F 
81 7F 81 

80 81 7F 
7E 83 80 

81 7E 80 
7E 7F 7D 
76 7F 80 
81 81 81 
81 82 81 

81 80 81 
7F 7D 7D 
7D 7F 76 
80 82 82 

82 7D 80 
80 53 63 
80 81 81 
80 53 53 

83 80 80 



73 



0000- 
0008- 
0010- 
0018- 
0020- 
0028- 
0030- 
0038- 
0040- 
0048- 
0050- 
0058- 
Fichi 



63 63 89 
7D 80 7F 
82 80 83 
84 80 83 
7F 81 7F 
7F 7F 80 
7F 7E 
80 81 
80 7F 
7D 80 7F 
E3 E3 80 
80 80 

74 



7E 
81 

7F 



90 E3 63 
81 80 81 
7F 83 7F 
81 81 81 
81 7F 80 
7D 7F 79 

80 7D 81 

81 82 80 
7F 7E 7F 
81 E3 E3 
7F 81 7F 



er 



7D 



0000-E3 E3 87 8A E3 E3 81 7F 

0008-7F 7F 7F 80 7F 81 7F 81 

0010-80 81 81 82 82 82 82 81 

0018-88 80 82 82 80 81 7E 82 

0020-7D 80 7E 7E 80 7F 81 7F 

0028-82 80 81 81 E3 E3 7E 7B 



0000-E3 
0008-7F 
0010-81 
0018-82 
0020-7F 
0028-7F 
0030-7F 
0038-7F 
0040-81 
0048-81 
F i ch i er 



E3 88 85 

81 80 81 
7F 82 7F 
80 83 81 

7F 81 
80 72 
76 80 76 

80 7F 82 

82 82 82 

81 86 80 
: 73 



81 
7C 



53 53 
81 81 
83 7F 

81 81 
7F 80 
80 76 
76 75 
80 82 

82 81 
80 80 



7F 80 
81 81 
84 7F 
80 82 
76 80 

80 77 
7F 82 

81 7F 
7F 7F 
8B 81 
84 80 



7D 80 
82 80, 
85 7F 
80 81 
7F 7F 
7F 7C 
76 80 
80 82 
82 81 



A SUIVRE... 



LA CEINTURE SACREE 



Petris de convoitise, vous voila dans un mysterieux chateau 
a la recherche de la legendaire "ceinture sacree". Mons- 
tres, pieges et oubliettes vous souhaitent la bienvenue... 

Eric PARENT 

Mode d'emploi : 

Creez tout d'abord uneligne 1 REM d'environ30caracteresquelconques, 
puis tapez le reste du programme. Faites GOTO 9100 avant lancement 
(RUN), pour permettre I'implantation prealable des codes machine. Les 
regies sont incluses 



l rem ■ 

RUN TAN . . 
5 GOTO 
10 REM 
20 REM 

30 REM 

31 REM 

32 REM 

33 REM 

34 REM 

35 REM 

36 REM 



-E1RND PLOT 4 SflUE 



?0OO 
******************** 

»LA COURONNE SRCREE* 

i * 

t RERLISE PRR * 

t ERIC PRRENT * 

► POUR * 



3 § 



REM 
REM 



******************** 



39 REM 

40 REM 

41 REM 
110 LET 



120 LET 
130 LET 



I 
F 
E 
140 LET 
150 DIM 
170 DIM " 
LET 
LET 
LET R 
F 



1." 

176 

177 

130 LET 

190 LET 



0+CHRt 43 

40+CHRt 42 

2+CHRt 56 + 

+CHRt 42 +C 

200 LET F 

210 LET 

499 REM 

500 REM 

501 REM 
510 CLS 
520 FRST 
530 PRINT 



*************** 
INITIALISATION* 
*************** 
= 1 

0= (INT (RND*6) +1) +7 
N=(INT (RND*24) +1) +12 
R=20 
(8) 

$(3) ="L 

t="NON" 

t=CHRt 49+CHRt 38+CHRt 

+CMR$ 52+CHRt 55+CHRt 

+ CHRt 0+CHR$ 41+CHRt 4 

CHRt 0+CHRt 41+CHR$ 46 

HR$ 53+CHRt 61 

LE=0 

UI=0 

****** 

C'ECOR* 

****** 



540 FOR X 

550 PRINT 

560 NEXT 

570 PRINT 



580 PRINT 



RT 0,0; " 

V 

=1 TO 10 
TAB 5,; 'I ".ITRB 26; " I" 



V 



; fo; 



THEN GOTO 13 
THEN GOTO 12 
THEN GOTO 10 
THEN GOTO 15 
THEN GOTO 20 



THEN GOTO 30 

THEN GOTO 35 

THEN GOTO 40 

THEN GOTO 45 

THEN GOTO 50 



590 PRINT RT 4, 

S1Z>© PRINT PIT 9 , %'; 

i ••; RT 6,1, "/" 

610 PRINT HT 21 ,0; "FORCE: 
ENERGIE: "; EN; " OR : " ; OR 

650 SLOU 

650 IF 1=57 THEN GOTO 8500 

720 IF Pi (1,9) »"5" 
00 

730 IF Pt CI, 9) = R 
00 

740 IF Pt (1,9) = "0' 
00 

750 IF Pt(I,9) = "2' 
00 

760 IF Pt (1,9) = "3' 
00 

770 IF Pt(I,9)="4" THEN GOTO 25 
00 

7S0 IF Pt (1,9) = "5" 
00 

790 IF Pt (1,9) = "6" 
00 

800 IF Pt (1,9) ="7" 
00 

310 IF Pi (1,9) ="8" 
00 

320 IF P$ (1,9) ="9" 
00 

870 GOTO 6000 

1000 REM *********** 

1001 REM *OUBLIETTE* 

1002 REM *********** 
1010 CLS 

1020 PRINT RT 3,0; "PRUURE DE UOU 
S,UOUS ETES TOMBE DANS UNE DES 
SEULE5 OUBLIETTES DU CHRTERU . . " 
1030 PRINT "QUE FAITES-UOUS ?" 
1040 INPUT Rt 

1050 IF Rt(l)=CHRt 40 THEN GOTO 
1100 

1060 PRINT "UOUS RUEZ ECHOUE , UOU 
S RESTEREZ ICI JUSOU R LR FIN D 
E UOS JOURS QUI NE UONT PRS TRRD 
ER." 

1070 IF INKEYt="" THEN GOTO 107O 
1080 GOTO 8000 

1100 IF 0(3) "1 THEN GOTO 1150 
1120 PRINT "TRE5 BONNE IDEE,MRIS 
ENCORE FRU-DRRIT-IL QUE UOUS RY 
EZ UNE CORDE" 
1130 GOTO 1O60 

1150 PRINT M eRR l JO,GRRCE R UOTRE 
CORDE, UOUS REUS5ISSEZ R UOUS SO 
RTIR DE CE TROU R RRTS . " 
1160 PRINT "MRIS MRLMEUREUSEMENT 
, UOUS N RUEZPU RECUPERER UOTRE C 
ORDE. . ." 
1170 LET 0(3) =0 
1175 IF 1=52 THEN GOTO 7000 
1130 GOTO 6000 

1200 REM ******** 

1201 REM *FLECHE* 

1202 REM ******** ____^^__ 
1210 PRINT RT 14,9, "T™""^^^" , R 
T 15,9; "J" .TRB 17;"fc",RT 13,10," 

^UM , hT 0,5, "UNE BOITE...";T 
^T OUUREZ-UOUS ?" 
INPUT R$ 
IF R$(1)="N" THEN GOTO 6000 

print rt 13 , io, uniwau 

PRINT RT 0,5; "UNE FLECHE EN 



RB 5 
1220 
1230 
1235 
1240 

";T 

1250 
1260 
1270 
1280 
1299 
1300 
1301 
1302 
»1| 



RB 5; "ARGENT 

LET FLE = 1 

IF INKEYt="" 

LET Pt (1,9) = 

GOTO 6000 

STOP 

REM *********** 

REM *SOUELETTE* 

REM *********** 

PRINT RT 8,12 

■ «■ ■ Ht 12; 



THEN GOTO 1260 
1" 



en 


SUPER-HOT 




L'auteur nous signale les modi- 


01 


fications suivantes a apporter a 


en 


son programme (LISTING 5) : 


Z 


- Supprimer les lignes 4992 et 




4994 


TJ 


- Ajouter les lignes : 


y- 


265 IF AL = AND DE THEN 




GOTO 5000 


N 


918 LET AMI = 


; 


2826 GOTO 2700 


z> 


- Modifier ainsi les lignes : 


< 


8405 LET WD = AG-AD 


tr 

HI 


8448 IF WD = AG-AD THEN 


GOTO 8450 



r3\ 



1320 

LR 
IR 
132! 
1330 
" TH 
1340 
1345 
GOT 
135J 

a a 



PRINT RT 0,5: 
SORTIE";TRB 5; 

INPUT Rt 

IF R*(l) < >"F" 

EN GOTO 1325 
IF Rid) = "C" 
IF R$ (1) ="F" 

8830 
PRINT RT 0,5 
SU ",TRB 5 



LE GRRDIE 
(C) OMBRT; 



N DE 
(F) U 



AND Rtd) 



THEN GOTO 
AND FUI>0 



8830 
THEN 



1353 LET FUI=1 

1355 GOTO 6050 

1499 STOP 

1500 REM ******** 

1501 REM *PIEGES* 

1502 REM ******** 
1540 GOSUB 6200 

1550 PRINT RT 14,8; ;;H", RT 12,6;" 

1570 LET H = INT (RND*2) +1 

1580 IF H=l THEN LET Dt="SERPENT 



1590 IF H=2 THEN LET Dt = " 



GRZ 



1600 PRINT RT'16,6;Dt 
1610 LET EN=EN-2 
1615 LET Pt (1,9) ="1" 
1620 GOTO 6000 

2000 REM **** 

2001 REM *OR* 

2002 REM **** 
2050 GOSUB 6200 

2055 PRINT RT 14,8;"B";RT 12,6," 
^■ik".Tp,6 6; l__J 

2060 PRINT RT 16,6; " OR 
2070 LET OR=OR+INT (RND*20) 
2080 LET Pt (1,9) ="1" 
2090 GOTO 6000 

2500 REM ******** 

2501 REM *POTION* 

2502 REM ******** 
2510 GOSUB 6200 

55:5 PRINT RT 14,8, > ;;B", RT 12,6;" 

2520 PRINT fit 16,6; "POTION " 
2530 LET H=INT <RND*2> +1 
2540 IF H=l THEN LET FQ=FO+l 
2550 LET EN=EN+1 
2555 LET Pi (1,9) = "1" 
2560 GOTO 6000 

3000 REM ********* 

3001 REM *MESSRGE* 

3002 REM ********* 

3010 PRINT AT 10, 12; " . "; AT 11,11 

, "Wm-.HT 12,11,"HM' 

30SO PRINT RT 0,5; "UN MESSAGE... 

3030 PRINT RT 1 , 5; "UOULEZ-UOUS L 

E LIRE ?" 

3040 GOSUB 6240 

3050 CLS 

3060 PRINT AT 0,10, 

3100 PRINT , , , , "LR 

ONNE LE PRSSRGE.DIT-MOI 

ET JE CHERCHER- HIS." 

3105 PRINT "SEULE LA FLECHE SPEC 
TUER LE GARDIEN." 
DECHIFFRE LE CODE OU 
LR PORTE DE SORTIE S 
AL ECROF SED XUEID" 
THEN GOTO 3150 



5rlle noire d 
;herche, 



IRLE PEUT 
3110 PRINT 
E UOICI,ET 

OUURIRR: 
3150 IF INKEYt = 
3170 GOTO 6000 

3500 REM ******** 

3501 REM *COMBRT* 

3502 REM ******** 
3610 CLS 

3620 LET F»INT ( (RND*6) +1) +6 

3625 LET E=10 

3630 PRINT HT 0, 10; SjdMrtOJ 

3635 PRINT RT 5,0; R""POUR RBR 

NDONNER" 

3640 PRINT AT 10 , 0; "UOUS : " , , "FOR 
CE:";FO;TRB 20; "ENERGIE :", EN 
3650 PRINT RT 15,0; "LE MONSTRE:" 
, , "FORCE: ", F,TRB 20; "ENERGIE: ";E 
3660 LET Dl»FO+INT ( (RND*6) +1) 
3670 LET D8=F+INT (<RND*6>+1) 
3675 IF 0(2)=1 THEN LET D1=D1+1 
3680 IF D1>D2 THEN LET E=E-2 
3700 IF D2>D1 THEN LET EN=EN-2 
3705 PRINT RT 16 , 20; "ENERGIE :"; S 
TR t E; " " 
3707 PRINT RT 11 , 20; "ENERGIE :"; 5 

TRt EN 

3710 IF EN<>s0 THEN GOTO 3900 

3720 IF E<=0 THEN GOTO 3800 

3725 IF INKEYt="I" RND 0(6) =1 TH 

EN GOTO 3970 

3730 IF INKEYt="" THEN GOTO 3730 

3735 IF INKEYt="R" THEN GOTO 393 



3740 GOTO 3660 

3800 PRINT RT 18 , 5, "SsQUmB" 

3810 IF INKEYt="" THEN GOTO 3310 

3813 LET EN=EN+1 

3315 LET Pt (1,9) *"l" 

3817 IF 0(5)=1 THEN LET EN=EN+1 

3820 CLS 

3830 GOTO 500 

3900 PRINT RT 18,5, "UOUS RUEZ RE 

RDU. . . " 

3910 IF INKEYt="" THEN GOTO 3910 

3920 GOTO 8000 

3930 PRINT AT 20,0, 



3940 IF INKEYt 
3950 LET EN=EN-2 
3960 GOTO 6000 
3970 PRINT RT 20 

INUISIBLE. . ." 
3980 LET (6) =0 
3990 GOTO 6000 

4000 REM ******** 

4001 REM iPRSSAGE 

4002 REM ******** 
4005 RRND USR 165 
4310 PRINT AT 1,5 
4020 INPUT Rt 
4035 IF Rt (1) ="T" 
N RRND USR 16514 
4037 IF Rt (1) ="T" 
N PRINT AT 10,5; "' 
4040 IF Rt (1) »"T" 
N GOTO 4090 

4050 IF Rt (1) ="S" 
4060 IF Rt (1) = "S" 
4070 IF Rt (1) ="C" 



THEN GOTO 3940 
0; "UOUS DEUENEZ 



******** 
SECRET* 
******** 
14 
; "ISSUES: SUD" 

RND O (8) =1 THE 

RND 0'3>;1T_ HE 

""T(8I»1 I HE 

THEN LET 1=30 
THEN GOTO 500 
THEN PRINT RT 




10,5. 

4075 IF Rt(D="C" THEN GOTO 4090 

4080 PAUSE 300 

4085 GOTO 4020 

4090 LET 1=53 

4100 IF Rt(D="T" THEN LET 0(8) = 



4130 GOTO 500 

4500 REM ********** 

4501 REM *CEINTURE* 

4502 REM ********** 

4510 PR INT RT 15 . 10; "JLaaA" , RT 

14, 10; -y mmm T"; RT 13, 10, "..tlltot" 

4520 PRINT RT 0,5, "UNE CEINTURE. 

..",RT 1,5, "LR PRENEZ-UOUS ?" 

4530 INPUT Rt 

4F.40 IF Rt(D="0" THEN GOTO 4600 

4550 GOTO 6000 

4600 PRINT RT 13,10," 

4620 PRINT RT 0,5; "UOUS RUEZ LR 

CEIN-",RT l,5i"TURE SRCREE 

4630 LET Ft="OUI" 

4640 LET Pt (1,9) ="1" 

4650 IF INKEYt="" THEN GOTO 4650 

4660 GOTO 6000 

4999 STOP 

5000 REM ********** 

5001 REM *MRRCHRND* 

5002 REM ********** 

5005 RRND USR 16514 

T 12, 6, \' H ' ii";RT 11 6™l' 

5020 PRINT AT , 5; "RENTREZ-UOUS 

5030 INPUT Rt 

5040 IF Rt(D="N" THEN GOTO 6000 

5O50 CLS 

5060 PRINT 

5(365 PPINT^ffl ' ' ; OR 

5070 PRINT ,,,,"UOUS POUUEZ ACHE 

TER CE QUE UOUS UOULEZ . DANS LR L 

IMITE DE UOS MOYENS." 

5030 PRINT "SACHEZ QUE CHAOUE OB 

•JET NE SERT OU UNE FOIS." 

5090 PRINT ,,"l-POTION FORCE (+2 

P FORCE) >5" 

5100 PRINT "2-GLRIUE (+1F COMBRT 

S) >4" 

5110 PRINT "3 -CORDE 

5120 PRINT' "4-POTION ENERGIE (+3 

PE) >5" 

5130 PRINT "5-P0TI0N MEDICINRLE 
(+1PE RPRES 

GOMBRTS) 'S5" 
5140 PRINT "6-P0TI0N INUISIBILIT 

llSe"pRINT'^7-NOURRITURE (+5PE) - 

5155 PRINT' "8-TORCHE 

->5" 

5160 PRINT "ENTREP UOS CHOIX RCC 

ll63 E PRINT "SB: ""1467"" PUIS ""N 
L 

5165 LET OP =20 

5166 LET (1) =5 

5167 LET O (2) =4 

5168 LET O (3) =5 

5169 LET O (4) =5 

5170 LET O (5) =5 

5171 LET (6) =3 

5172 LET 0(7) =5 

5173 LET O (8) =5 

5179 INPUT Rt 

5180 FOR X=l TO LEN Rt 
5210 LET OR=OR-0(URL Rt(X)) 
5230 IF OR<© THEN GOTO 5165 
5240 LET 0(URL Rt<X))=l 
5250 NEXT X 

1111 PRINT "TOUTES LES POTIONS, R 
PRRT CELLE D INUISIBILITE RGISS 
ENT RPRES LEUR RCHRT." 
5270 IF INKEYt""" THEN GOTO 5270 
5280 LET 1=2 

5290 IF 0(1) =1 THEN LET F0=F0+2 
=;300 IF 0(41=1 THEN LET EN = EN+3 
5320 IF 0(7) =1 THEN LET EN=EN+5 
5400 GOTO 500 

6000 REM ************ 

6001 REM *DIRECTIONS* 

6002 REM ************ 

6003 PRINT RT 0,5," 

6004 PRINT RT 1,5; " 

6010 IF URL Pt (I, 1 TO a)<>l'THEN 

PRINT ' JBS3S " 
6020 IF URL Ptd,3 TO 4><>I THEN 

PRINT "EBB " 
6030 IF URL Ptd.5 TO 6)<> I THEN 

PRINT "3B ".; 
6040 IF URL Pt (I ,7 TO 8) <>I THEN 

PRINT RT 2,12. "SDMii" 
6050 INPUT Rt 
6060 IF Rt(D="N" THEN LET I=UflL 

Pt 'I, 1 TO 2) 
6070 IF Rt(D="S" THEN LET I=URL 

Pt (1,3 TO 4) 
6060 IF Rt<l)="E" THEN LET I=URL 

Pt (1,5 TO 6) 
6090 IF Rt(D="0" THEN LET I=URL 

Rt (1,7 TO 8) 
6100 GOTO 500 

6200 REM ******** 

6201 REM *COFFRE* 

6202 REM ******** 

6210 PRINT RT 13 , 6 ; Rt ( 1) , TRB 6, A 

t (2) , TRB 6, Rt (3) 

6220 PRINT RT 0,5, "UN COFFRE . . . 

6230 PRINT RT 1,5, "L OUURES-TU ? 

6240 INPUT Rt 

6250 IF Rt(l)="N" THEN GOTO 6000 

6260 RETURN 

7000 REM ************** 

7001 REM +PRESENTRTION* 

7002 REM ************** 

7003 FOR 1=1 TO 10 

7004 RAND USR 16514 

7005 NEXT I 

7010 PRINT RT 1,10, "ERIC PARENT" 
■ RT 5, 12, "RESENTE: " 



7060 PRINT TRB 1; 

■ ■■ ■" 
7070 PRINT T B 1 , 

7080 PRINT TRB 1, 

■ ■■ ■" 
7090 PRI TAB 1; 

7100 IF INKEYt=" 

7120 CLS 

7130 PRINT TAB 4, 



7140 PRINT ,,"UOUS RLLEZ ETRE EN 
FERME DANS UN CHATEAU COMPOSE DE 

57 SALLES,ET DANS L UNE D ENTRE 

ELLES IL Y R" 
?150 PRINT 



THEN GOTO 7100 



UE UOUS DEUREZ RECUPERER , IL Y A 
RUSSI DES COFFRES REMPLIS D OR,D 
E POT IONS, OU RECELRNT DES PIEGES 

7160 PRINT "UOUS TROUUEREZ RUSSI 

DES MES- SRGES UOUS RIDfiNT fl 
UOUS EN SOR-TIR.ESSRYEZ DE LES D 
ECHIFFRER, ILS UOUS SERONT D UN 

GRRND SEC- OURS." 
7170 PRINT "POUR UOUS SERUIR D U 
N OBJET EN UOTRE POSSESSION , ENT 
REZ DIRECTE-MENT LE NOM DE CELUI 
-CI R LR PLACE DE LR DIRECT 10 



'UOUS POUUEZ UOUS SER 
POTION D INUISIBILIT 

"I 

"BONNE CHRNC 



7180 



N. 

7175 PRINT 

UIR DE LR 

E LORS D UN 

71S0 PRINT RT 

E"; AT 21 . 10; 

7190 IF INKEYt = 

7500 GOTO 9000 

7999 STOP 

3000 REM *************** 

8001 REM *FIN DE PfiRTIE* 

3002 REM *************** 

8O10 CLS 

8020 PRINT RT 10,0, "C EST ICI OU 

E S RCHEUE UOTRE RU-ENTURE , UOIC I 

UOTRE TOTRL : " 
8030 PRINT "FORCE: " , FO 
8040 PRINT "ENERGIE :"; EN 
3050 PRINT "OR:"; OR 
■301=13 PRINT "CEINTURE: ", Ft 
8070 PRINT " UOULEZ -UUUS REJOUER 



■r.080 
6090 
3100 
8500 
3501 
3502 
8510 
3520 
3530 
8540 
8550 
E ?" 
3560 
8570 
8575 
8580 

"; RT 

8590 
6600 
3610 

8620 
3630 
8640 
8650 
3655 
8660 



INPUT Rt 

IF Rt(D="0" THEN GOTO 9000 

STOP 

REM ******** 

REM *SORTIE* 

REM ******** 

FOR S = 10 TO 15 ____ 

PRINT AT 5,10, "BBBB' 

NEXT " 



PRINT AT Q.IO.'bbb 
PRINT AT 0,5;"ENTREZ 



LE COD 



INPUT Rt 

IF Rt=Ct THEN GOTO 3600 

IF INKEYt="" THEN GOTO 3575 

PRINT RT 0,5, "C EST BETE DE 

1,5; "PERDRE ICI. " 

GOTO 8000 

PRINT AT 16, 10. "aaBIH 

PRINT RT 0,5; "LR PORTE 

RT 1,5; "S OUURE. . . " 

FOR S=9 TO 15 

PRINT RT S,10; "I 

NEXT S 

IF INKEYt="" THEN GOTO 8650 

IF Ft="NON" THEN GOTO 8800 

CLS _________^ 

PR I NT A T ^^^— — — 

3 ".80 PRINT^^^RpSu , UOUS ETES UN 
HERDS, UOUS RUEZ REUS5I CE QUE 
PERSONNE N RURIT REUSSI JUSOU 
R PRESENT: RRMENER LR CEINTUR 

E SRCREE RU ROI." 

8690 PRINT "JE UOUS EN FELICITE, 

ET POUR UOUSLE PROUUER. LE ROI UO 

US REMET LR MODIOUE SOMME DE 20 

000 PIECES. ENCORE BRRUO URILLR 

NT(E) CHEURLIER (E) . " 

6700 GOTO 6078 

6800 CLS _ __„ 

6310 PRINT RT 2,0; "UOUS RUEZ TRU 

UUE LR SOPTIE,BRAUOMAIS PRS LR C 

EINTURE DONC UOUS RUEZ ECHOUE D 

RNS UOTRE MISSION. " 

8320 GOTO 8000 

8630 REM ************** 

8831 REM tSOUELETTE (2) * 

3332 REM ************** 

8340 CLS 

8350 PRINT AT 10,0; 
EST INUINCIBLE. . . 
QUE LES RRMES EN 

EZ UOUS UNE ?" 

8355 INPUT Rt 

3860 IF Rt (1) =' 
GOTO 8900 

8370 PRINT 

6375 IF INKEYt = '" 

8880 GOTO 8000 

6900 CLS 

8910 PRINT RT 10,0, "UOUS LUI LHN 

CEZ LA FLECHE DANS LES OS.ET DA 

NS UN CRI EFFROYABLE LE SOUELETT 

E S EFFONDRE ..." 

3920 LET FLE=0 

8930 LET Pt (1,9) ="1" 

8940 IF INKEYt="" THEN GOTO 8940 

8950 GOTO 6000 

8999 STOP 

9000 REM ****************** 

9001 REM +ENTREE URRIRBLES* 



'LE SOUELETTE 
IL NE CPAINT 
ARGENT, EN RU 



RND FLE=1 THEN 



THEN GOTO 8875 



Suite page 29 



PETER 



COMMODORE 64 



LISTING 1 



1 P0KE55 , 255 : P0KE56 . 15 = POKE53280 

. n ■ P0KE33281 .. : PRINT":!* 1 : CLP, 

1 5 I NPUT " TODRESSE COURHNTE " i C* : GO 

gi (B300 : RD=E : G0T035 

20 IMPUTE* : S=0 ! L«=LEN<B*) : IFL028T 

HEN40 

25 FORI-0TO7iRf«LEFT#<B*^2>:OOSUB 

100:POKEf)D+I,V:L«<L-3:B*»RIGHT*(B* 

,L>:S-S+V:NEXT 

30 RD=RD+3 ; C*=B* i GOSI IB300 : IFE<">ST 

HENPRINT"ERREUP" ■ flD=RD-8 

33 M=RD ■ GOSUB400 : B*= " " : GOTO20 

40 IFB*="R" THEN 1.5 

45 rFBfO""THEN30 

50 f1=RIi:PRIHT"T' I : GOSUB400 : PR I MT " 

55 S«=0FORI=flDTOflD+7:P=PEEKa:> ■ S= 
S+P ! OOSUB308 : PR I MT " " ; : NEXT •' N=s : R 
OSUB400 : PRINT : RH=HD+8 : 0OT033 
100 R=RSC CLEFT* Cfl*, t>> : IFR>57THEN 

110 B=RSCCPIGHT*Cfl*, 1>> : IFB>57THE 

MB=B-7 

120 V"<<H-48>*16)+B-48: RETURN 

200 R=R+48:IFfl>57THENR=R+7 

210 RETURN 

300 R*»LEFT*CC*, 2) : GOSUB100 : H=V : R 

*=R I GHT* < C* 1 2 ) : GOSI IB 1 00 : F= ( 256*0 ) 

+V : RETURN 

400 E»INT(M/256) :F=INTCf1-<256*E>) 

! P=E : GOSUB300 : P=F ■ GOSUB300 : RETURN 

500 B=INTCP/16> : C=INT <P-06*B)> : R 

=B : GOSUB200 : B=R : fl=C : GOSI IB200 : CxR 

510 PRINTCHR*<B>iCHR*<C>; : RETURN 



LISTING 2 



Peter doit rattraper a I'aide dune poele, les ceufs que des 
poules sur un perchoir, pondent en depit du bon sens. Mal- 
heur a notre ami si I'un d'oeuf (humour !) touche le sol. 

Dominico MANFREDI 

Mode d'emploi : 

Tout d'abord. tapez et lancez le listing 1 (sauvegardez-le, il pourra vous 

etre utile pour des programmes ulterieurs). Ce programme dit "chargeur", 

est destine a permettre I'implantation en memoire des codes machine du 

listing 2. 

A la question "ADRESSE COURANTE ?", entrez I'adresse de debut 

d' in, plantation, soil dans le cas qui nous occupe, la valeur 1000. Cette 

valeur s'affiche. Entrez alors a la suite en les separant d'un espace, les 

FD 07 fl9 

00 BD 37 
F8 IE 3D 
9D C0 0E 
0C ED 3B 
E0 3F D0 
90 27 D0 
3D 27 00 
R9 U8 80 

ic D0 20 

R2 00 20 
59 18 R2 
32 8B AS 
02 R9 31 
IE RE CB 
C9 32 F0 
C9 34 F0 
9R 12 4C 
R0 00 B9 
20 9D 18 
Fl R0 00 
16 21 9D 
D0 Fl R9 
02 80 11 
4B 13 R8 
H9 29 9D 
C8 C0 0C 
10 0F 8D 
4C 4B 13 
RR B9 B3 
40 20 RR 
05 CS C0 
80 10 0F 
R9 03 8D 
R0 00 B9 
20 9D 18 
B9 EC 20 

13 D0 E7 
R9 04 811 
12 0F 4C 
85 20 RR 
05 C8 C0 
B9 S3 20 
B8 05 C8 

01 8D 10 
0F R9 05 
20 C8 16 
0R 85 82 
R9 CD 8D 
15 D0 C6 
4C 72 13 
E0 19 20 
15 D0 D0 
F0 03 4C 

02 D0 R9 
02 R9 00 
85 02 R5 
R9 03 85 

02 3D 15 
18 RD 00 
D0 29 FD 
0F 20 B2 
D0 D0 IE 

03 4C 10 
D0 R9 66 
R9 00 9D 
02 R5 02 

04 85 02 
8D 15 D0 
RD 00 0F 
29 FB 8D 
20 E2 1R 
D0 IE R5 
4C 5F 14 
R9 66 SB 
00 9D 01 
R5 02 C9 
85 02 RD 
15 D0 R2 

00 0F 00 
F7 8B 15 
B2 1R R9 
IE R5 02 
RE 14 R9 
66 8D 09 
90 01 0F 
02 C9 04 
02 RD 15 
D0 R2 68 
0F D0 0E 
8D 15 D0 
1R R9 20 
R5 02 C9 

14 R9 C8 
8D 0B D0 

01 0F R9 
C9 05 D0 
RD 15 D0 
R2 0R 20 
D0 0B RE 

15 D0 EE 
15 E0 D0 
F0 03 4C 



1 000 
1008 
1010 

1018 
1020 
1028 
I 030 
1038 
1040 
1048 

1050 

1058 
1 060 
1068 

1070 

1078 
1 080 
1 088 
1090 
1 098 
10R0 
10R8 

10B0 

10E8 
10C0 
1 0C8 

1 0D0 

10D8 

10E0 

10E8 
10F0 
10F8 
1 1 00 
1108 
1110 
1118 
1120 
1128 
1130 
1138 
1140 
1148 
1150 
1158 
1160 
1168 
1170 
1178 
1180 
1188 
1190 
1198 
11 R0 
11H8 
11B0 
11B8 
11C0 
11C8 

una 



44 
21 
R9 
F9 
FR 
48 
0fl 
00 
0ft 

9C 
D0 
8D 
D0 
IF 
ID 
04 
29 
R2 
IB 
B9 
IC 
BB 

1.0 

IB 
E0 

00 

16 
R9 
13 

76 
55 
05 
0F 
R9 

no 
50 
Cfl 
48 
9D 
EE 
20 
H0 
B9 
IC 
9D 

HH 
20 
05 
Dl 
F4 
R9 
20 
D0 
15 
FB 
90 
E 6 
FE 
8D 



E5 
Li0 
28 
07 
07 
R9 
9D 
0B 
no 

8D 



00 8D 
5D 16 
F8 07 
FB 07 
2C 8D 
9D 00 
0R 9D 
00 EC 
6C 8D 
00 R9 
80 08 
8D 03 
D0 8D 
D0 8D 

07 8D 
00 80 
2R 00 
F4 IC 
0R BD 
99 40 
FC ID 
R8 E9 
00 1 

0B 28 

C6 20 

90 R2 
R9 01 
FR 0F 

00 R2 
Rl 05 
R8 R9 
0F D0 
03 D0 
EB 09 

01 8D 
0F R0 
IF 9D 
17 68 
EC FE 
C8 C0 
R0 FF 
BR IF 
99 C6 
R2 00 
E8 E0 
8D El 
R9 EB 
R0 00 

08 C8 
11 R9 
FC R9 
RD 00 
00 8D 
44 E5 
85 FC 

91 FB 
D0 F2 
F9 07 
SD FC 



20 00 

20 Dl 



29 
2fl 
07 
90 



C0 0R 
R9 3C 
02 00 
CC 8D 
D0 R9 
D0 8D 
09 D0 
IC 00 

25 D0 
D0 
2B 



28 

8D 
R8 B9 

F7 IC 
0fl ED 
99 80 
7E ID 
R8 B9 
C6 16 



20 9D 

E8 EE 
DE R2 
E8 E0 
FE 0F 
00 R2 
ER 05 
R8 R9 
0F 00 
11 D0 
20 C8 
99 C6 
07 C8 
ED C6 
IC D0 
DB R0 
85 FE 
B9 61 
C0 08 
05 85 
07 85 
DC 29 
ID 00 
R9 00 
R2 04 
88 D0 
R9 29 
8D FR 
07 8D 



036F 

0302 
0345 
03EF 
03F3 
02CF 
02DS 
0413 
0301 
04R8 
0489 
03R0 
039F 
03B3 
03RC 
03B6 
03C5 
04R0 
02CF 
039C 
04R9 
03DC 
039E 
027R 
049B 
044E 
04F1 
0350 
039b 
0371 
0302 
0546 
04E8 
04D5 
0426 
03D1 
03BD 
0325 
0476 
054C 
040R 
03R7 
0487 
04C0 
05CC 
062B 
0414 
03E9 
0455 
03F0 
046R 
022C 
03BC 
0364 
0528 
0438 
0639 
04R6 
03B3 



108 

1E0 
1E8 
1F0 
1F8 
200 
208 
210 
218 
220 
228 
230 
238 
240 
248 
250 
258 
260 
268 
270 
2 78 
280 
288 
290 
298 
2R0 
2R8 
2B0 
2E8 
2C0 
2C8 
2D0 
2D8 
2E0 
2E8 
2F0 
2F8 
300 
308 
310 
318 
320 
328 
330 
338 
340 
348 
350 
358 
360 
368 
370 
378 
380 
383 

390 
39ft 
3R0 
3R8 
3B0 
3B8 
3C0 
3C8 
3D0 
3D8 
3E0 
3E8 
3F0 
3F8 
400 
403 
410 
418 
420 
428 
430 
438 
440 
448 
450 
458 
460 
468 
470 
478 
480 
488 
490 
493 
4R0 
4R8 
4E0 
4B8 
4C0 
4C8 
400 
4D8 
4E0 
4E8 
4F0 
4F8 
500 
508 



510 0C 00 R9 66 3D 00 00 R2 03F7 
518 0C R9 00 9D 01 8F R9 07 0212 
520 85 02 R5 02 C9 06 00 04 02D1 
528 R9 02 85 02 RD 15 00 09 02CB 
530 40 8D 15 D0 R2 0C 20 98 0318 
538 18 RD 00 0F 00 0B RD 15 0271 
540 D0 29 BF 8D 15 D0 EE 00 0418 
548 0F 20 5E 1R RD 01 0F D0 0234 
550 6C R9 70 8D FR 0F R9 0B 03CF 
558 8D 13 D4 20 55 17 CE 01 02CF 
^€<d 00 CE 01 00 RD 01 00 C9 04E6 
568 01 F0 07 C9 00 F0 03 4C 0300 
570 5B 15 R0 08 20 C8 16 EE 0304 
578 01 0F CE 05 06 RD 05 06 01R1 
580 C9 30 F0 08 4C 46 12 20 02E0 
538 4E IB R2 00 ED 5R 23 90 02E2 
590 02 07 R9 03 9D 02 DB E8 0317 
598 E0 09 D0 F0 R9 01 80 RE 048E 
5R0 02 RD 00 DC 29 10 D0 F9 0380 
5R8 20 FE 19 20 33 1R R2 00 0243 
5B0 R9 20 90 02 07 E3 E0 09 0340 
5E8 00 F6 4C 46 12 RD IE 00 0405 
5C0 80 R8 02 RO R8 02 00 03 0361 
5C8 4C E3 15 C9 03 F0 17 C9 03E0 
5D0 05 F0 IE C9 09 F0 IF C9 03BH 
5D8 11 F0 23 C9 21 F0 27 C9 03EE 
5E0 41 F0 2B 4C 62 13 RD 15 02OF 
5E8 00 29 FD 4C 13 16 RD 15 0320 



5F0 00 29 FB 4C i; 
5F8 00 29 F7 4C 10 



16 RD 15 032B 
16 RO 15 0327 



hu't codes machine ainsi que la somme de controls (en fin de iigne) et 
validez par RETURN. Si votre saisie est corrects I'adresse suivante s'affi- 
che etc Dans le cas contraire, le message "ERREUR" signale votre mala- ^- 
dresse et I'adresse courante s'affiche de nouveau : il ne vous reste plus 
qu'a recommencer. 

Si vous desirez lire ou verifier une Iigne de codes, tapez "A" apres I'affi- 
chage de I'adresse courante. Le message "ADRESSE COURANTE ?" se 
reaffiche. II vous suffit alors de rentrer I adresse a partir de laquelle vous 
desirez effectuer la lecture, puis d'appuyer sur RETURN a l'affich?ge de 
celle-ci. 

En fin de saisie, stoppez le programme chargeur par RUN/STOP et sau- 

vegardez le langage machine par : 

POKE 43,0: POKE 44,16: POKE 45,107: POKE 46,35: 

SAVE"PETER",1,1 

Lancez le jeu par : SYS 4096. 

28 80 F8 07 R2 0403 

IF 90 40 0R BD 02E7 

00 0R BO B9 IE 0351 
BD 7R IE 9D 00 035R 
IE 90 40 0C E8 02F3 
DD R2 06 R9 01 04 IE 
Cfl D0 FR R9 0R 04 DB 
M9 09 8D 25 00 03B8 
26 00 R9 01 80 036B 

79 17 20 DE 17 02B1 
59 18 R2 08 20 01FD 

10 20 59 18 R9 0250 
02 R9 FF 80 RR 0449 

80 CB 06 20 19 0273 

06 C9 31 F0 0F 0392 
0E C9 33 F0 00 03F2 
0C 4C 15 13 4C 02B9 
BB 12 4C E8 12 030B 
F9 IF RR B9 FF 0403 
05 C8 C0 17 00 0349 
B9 10 20 RR B9 0300 
B8 05 C8 C0 ID 0336 

01 8D 10 0F R9 03C0 
0F 80 12 0F 4C 01R9 

00 B9 53 20 RR 0204 
18 05 90 B8 05 02E6 
09 EF R9 03 60 048C 

11 0F 80 12 0F 01 7R 
R0 00 B9 2E 20 0250 
20 9D 13 05 E9 03R9 
B9 C6 20 9D B8 03FE 

13 00 E7 R9 04 0404 
R9 02 80 11 0F 0204 

12 0F 4C 4B 13 0204 
5F 20 RR B9 D9 0414 
05 B9 72 20 RR 02CF 
90 B8 05 C8 C0 04R7 
R9 03 80 10 0F 0322 
11 0F R9 02 80 0292 
4B 13 R0 00 B9 0224 
B9 33 21 9D 18 0311 

14 H0 Fl R0 00 0402 
RR B9 47 21 9D 03DR 
C0 1R D0 Fl R9 04C9 
0F R9 03 8D 11 01F7 
80 12 0F R0 05 0210 
R9 10 85 71 R9 0356 
H9 88 80 00 00 03 IF 

01 D0 R9 01 80 040B 
71 R5 71 F0 03 0425 
R9 10 85 71 20 02R0 
B2 1R R9 02 2C 02EC 
IE R5 02 C9 01 0344 
CI 13 R9 48 80 0391 
66 80 03 00 R2 03E3 
90 01 0F R9 07 0208 

02 C9 01 00 04 02CC 
02 RD 15 00 09 02CE 

00 R2 02 20 8'C 02C4 
0F 00 0B RD 15 0271 
8D 15 00 EE 00 0456 
1R R9 04 2C 15 01E9 
R5 02 C9 02 F0 0420 

14 R9 48 80 04 01F5 
80 05 00 R2 04 03E7 

01 0F R9 07 35 028B 
C9 02 00 04 R9 02F1 
RD 15 D0 09 04 022R 
R2 04 20 8C 18 02DC 
D0 0B RD 15 00 0329 

15 00 EE 00 0F 0393 
R9 08 2C 15 00 02HE 

02 C9 03 F0 03 0354 
R9 88 8D 06 00 0353 

07 00 R2 06 R9 03C4 
0F R9 07 85 02 01E4 

03 00 04 R9 05 02F5 
15 00 09 08 80 02B7 




600 00 29 EF 4C 13 16 RD 15 03 IF 

608 00 29 OF 4C 13 16 RD 15 030F 

610 00 29 BF 80 15 00 20 6F 03B9 

618 lfl 20 39 IB CE R9 02 RO 02B4 

620 R9 02 00 36 R9 32 80 R9 03C2 

623 02 R9 00 80 15 D0 RD CB 0395 

630 06 C9 35 F0 06 EE CB 06 03B9 

638 4C 46 12 R9 31 80 CB 06 02DC 

640 RD 05 06 C9 39 F0 03 EE 039B 

648 05 06 RD 93 07 C9 35 F0 0340 

650 06 EE 93 07 20 55 1R 4C 0269 

658 46 12 4C 62 13 RD 0E DC 02B0 

660 29 FF 80 0E in": R5 01 29 0360 

(=■.68 FE 85 01 R9 00 85 FB 85 042F 

670 FD H9 00 85 FC R9 30 85 0555 

673 FE R2 03 R0 00 Bl FE 91 0480 

680 FD 88 00 F9 E6 FC E6 FE 0714 

688 f:fl D0 F0 R9 6fl 85 FB R9 05C6 

690 00 85 FD R9 21 35 FC R9 0476 

698 30 85 FE R2 03 R0 00 El 03R9 

6R0 FB 91 FB 38 B0 F9 E6 FC 06BC 

6R8 E6 FE CR 00 F0 R5 01 09 05 ID 

6E0 04 85 01 RO 0E DC 09 01 022E 

6B8 80 0E DC RD 18 D0 29 F0 0425 

6C0 09 0C 80 18 D0 60 R0 70 02FR 

6C8 CE FF 0F 00 FE 88 00 F8 05F7 

600 60 78 R9 02 80 14 03 R9 0200 

608 17 80 15 03 R9 0F 80 18 0219 

6E0 D4 R9 IC 8D 05 D4 R9 00 03R8 

6E8 30 06 04 80 FC 0F 80 FD 0489 

6F0 0F R9 2R 80 0C D4 R9 RR 03R2 

6F8 3D 00 04 R9 50 3D FB 0F 03FE 

700 53 60 EE FD 0F RD FD 8F 046E 

708 CD FE 0F F0 03 4C 31 ER 0481 

710 R9 20 80 04 04 80 0E D4 039R 

718 R9 21 3D 04 04 80 0B 04 039B 

720 R9 00 3D FD 0F RE FC 0F 03FB 

728 BD 63 IB F0 20 8D FB 0F 03E2 

730 BD B4 IE 8D 01 D4 BD 04 03HF 

738 IC 80 00 04 BD 54 IC 30 0337 

740 08 D4 ED R4 IC 8D 07 04 03C1 

748 EE FC 0F 00 05 80 FC 0F 0466 

750 F0 BE 4C 31 ER RD FR 0F 04CB 

758 80 0F 04 R9 80 80 12 D4 040C 

760 R9 81 80 12 04 R0 03 20 0360 

768 CS 16 CE FR 0F 60 R2 07 03BE 

770 R9 00 90 00 D4 Cfl 00 FH 04BB 



•(Jog ?WWSB 

'pate /we. 



1778 60 R2 00 R9 0E 90 70 D8 039E 
1780 9D 97 08 BD C9 IF 90 70 04BE 
1783 04 BD CF IF 90 98 04 90 0385 
1790 60 05 R9 04 90 38 09 90 0:350 
1798 60 09 BO 05 IF 90 38 05 03C4 
17R0 BD DE IF 90 00 06 R9 03 0306 
17R8 9D 00 DR BD El IF 90 68 0439 
17B0 07 R9 07 90 68 OB 80 93 03B7 
17B8 DB R9 31 8D 93 07 E8 E0 04FI4 
17C0 06 D0 B8 fl2 00 R9 08 90 837E 
17C8 R0 DR 3D CE OR BD E7 IF 056F 
17D0 90 R0 06 E8 E0 07 00 ED 04CF 
1708 R9 31 80 CE 06 60 R2 IE 0358 
17E0 R9 00 90 00 08 90 C0 DE 0463 
17E8 R9 26 90 00 04 fl9 25 90 02DB 
17F0 C0 07 A9 09 90 F0 D3 90 047E 
17F8 70 DB A9 00 9D F0 04 9D 0422 
1800 70 07 CR D0 OB R9 00 85 04 lfl 
1308 FB R9 04 85 FC R9 27 35 047E 
1310 02 20 40 18 R9 IE 85 FB 02C1 
1318 A9 04 85 FC E6 02 20 40 0376 
1820 13 fl9 00 85 FB A3 08 35 0447 
1328 FC fl9 0D 35 02 20 40 18 02B1 
1830 R9 IE 85 FE R9 D8 85 FC 0549 
1838 fl9 00 85 02 20 40 18 60 0215 
1840 82 19 H0 00 fl5 02 91 FB 038E 
1848 R5 FB 18 69 23 85 FB R5 046E 
1850 FC 69 00 85 FC CR 00 EC 056C 
1858 60 R9 29 90 5F 06 90 87 0358 
I860 06 9D RF 06 R0 00 R9 01 02R2 
1868 9D 7E 08 90 fib 08 B9 EE 05B5 
1870 IF 90 7E 04 E9 Fl IF 90 03R4 
1878 FI6 04 R9 07 JJD CE 08 B9 0456 
1830 F5 IF 90 CE 04 E8 C8 C0 04F3 
1888 03 00 DB 60 RD 10 0F 4C 0326 
1390 9B 18 RD 11 0F 4C 9E 18 027F 
1898 RD 12 0F C9 01 F0 10 C9 0361 
18R0 02 F0 10 C9 03 F0 10 C9 0397 
18R8 04 F0 10 20 81 19 60 20 023E 
18B0 BF 18 60 20 15 19 60 20 0205 
18B8 43 19 60 20 53 19 60 BD 0265 
18C0 01 0F F0 0C C9 01 F0 IB 02E1 
18C8 C9 02 F0 26 20 05 19 60 027F 
1800 ED 00 00 C9 6C F0 03 FE 04B8 
1808 00 D0 E8 FE 00 D0 60 FE 04E4 
18E0 01 0F 60 BD 00 00 C9 HC 0372 
18E8 F0 04 FE 00 D0 60 FE 01 0421 
18F0 0F 60 BD 00 00 C9 C8 F0 047D 
18F8 08 FE 00 00 E8 FE 00 00 048C 
1900 60 FE 01 0F 60 E8 BD 00 0373 
1908 00 C9 OR F0 04 FE 00 D0 0535 
1910 60 20 07 19 60 BD 01 0F 0290 
1913 F0 04 20 33 19 60 E8 BD 0365 
1920 00 D0 C9 H6 F0 08 FE 00 0435 
1923 D0 Cfl DE 00 D0 60 Cfl FE 0570 
1930 01 0F 60 E8 ED 00 D0 C9 03FIE 
1938 DR F0 04 FE 90 00 60 20 04 IC 
1940 D7 19 69 E8 ED 00 D0 C9 048E 
1948 DR F0 04 FE 00 D0 60 20 041C 
1950 07 19 60 BD 01 0F F0 04 0311 
1958 20 71 19 60 E8 ED 00 D0 037F 
I960 C9 R6 F0 08 FE 00 00 CR 04FF 
1963 FE 00 00 60 CR FE 01 0F 0406 
1970 60 E3 BD 00 00 C9 OR F0 0568 
1978 04 FE 00 00 60 20 07 19 0342 
1980 60 BE 01 0F F0 0C C9 01 02F3 
1988 F0 IB C9 02 F0 26 20 C7 0303 
1990 19 60 BO 00 00 C9 R4 F0 0463 
1998 08 DE 00 D0 E8 FE 00 00 046C 
19fl0 60 FE 01 0F 60 BD 00 D0 035B 
19R8 C9 64 F0 04 DE 00 D0 60 042F 
19B0 FE 01 0F 60 BD 00 D0 C9 03C4 
19B8 48 F0 08 DE 00 D0 E8 FE 0404 
19C0 00 00 60 FE 01 0F 60 E8 0336 
19C3 BD 00 00 C9 OR F9 04 FE 0522 



A SUIVRE... 



06 
0E 
D0 

10 
I i 

88 
DM 
H9 

110 
00 

20 
RD 
EE 
2C 
05 
80 
R2 
07 
64 
09 
93 
15 

00 

IE 
49 



20 92 
flD 15 
EE 00 
2C 15 
04 F0 
80 08 
R2 08 
07 85 
04 R9 
09 1 
92 18 
15 00 
00 0F 
15 00 
F0 03 
0fl 00 
0fl R9 
85 02 
fl9 01 
20 80 
18 flD 
00 29 
0F R9 
fi5 02 
15 R9 



18 RD 



00 

0F 



00 00 
03 4C 
00 R3 
R9 00 
02 fl5 
06 85 
80 15 
RD 00 
29 EF 
20 B2 
00 IE 
4C FD 
R9 66 
00 90 
H5 02 
85 02 
15 00 
00 0F 

OF 80 

40 2C 
C9 06 
C8 80 



0304 
02R5 

0386 
0366 
0201 
040 1 
03 IF 
0289 
0207 
024F 
02F 1 
0394 
034 1 
02E2 
83B1 
03FB 
035FI 
01EE 
0203 
032D 
0238 
0402 
02F7 
0349 
039E 



-f A5 TOUJOURS PAS TON WFR 

100J0URS "Pfl^ ? 
AWRJO»\/0iEUNC»6?UQS 

pefflF. a... 

CA5 BR KZlWpZS 60153 
Ifel. .-16(44)85:60.33 




10P**' 



INVASION GALACTIC 



Face a une vieille et pittoresque tradition martienne, assu- 
mez vos responsabilites de commandant de la defense 
spatiale. 

Nicolas LAMBERT 

Mode d'emploi : 

Tapez et sauvegardez a la suite ces deux listings. Les regies sont incluses. 






AMSTRAD 



'(/< va /w ptmo 




LISTING 1 



1 INK 0<0r BORDER 0:MODE 

2 SYMBOL AFTER 32 

3 SYMBOL 58, 136, 98, VIS, 'I 27 , 63 , 63 , 6 
3,31 

4 SYMBOL 53,4,4,78,238,233,255,255 
,255 

5 SYMBOL 60,0,4,28, 124., 248, 248, 240 
,240 

6 SYMBOL El ,31 ,63,63, 127, '127,254,1 
36,0 

7 SYMBOL 62,255,255,255,255,33,88, 
8,0 

8 SYMBOL 63,240,248,224,240,240,24 
0, 120,24 

3 SYMBOL 37,0,0,0,0,0,12,48,132 

10 SYMBOL 38,0,0,0,0,0,0,3,15 

11 SYMBOL 33,0,0,0,0,48,248,252,24 
8 

12 SYMBOL 100,1,3,15,23,7,7,3,3 

13 SYMBOL 101,224,252,255,255,255, 
255 < 255 "*55 

14 SYMBOL 102,30,56,248,224,224,22 
5,243, 255 

15 SYMBOL 103,56,56,112,224,224,13 
2,132,1 28 

16 SYMBOL 104,3,1,1,3,7,7,7,3 

17 SYMBOL 105,128,128,132,132,226, 
228,244,248 

18 SYMBOL 106,255,255,255,255,255, 
247,226 

13 SYMBOL 107,255,255,255,255,128, 
0,0,0 

20 SYMBpL 108,240,240,224,224,64,6 
4,128,0 

21 SYMBOL 103,1,3,7,7,3,1,0,0 

23 SYMBOL 35,160,80,160,80,160,80, 
160,80 



SYMBOL 36,10,5,10,5,10 



,u,10, 



26 SYMBOL 37,170,85,170,85,0,0,0,0 

27 .SYMBOL 38,0,0,0,0,170,85,170,85 
28. "SYMBOL 33 , 1 60 , 80 , 1 60 , 80 , 1 , 5 , 1 

J 5 

29 SYMBOL 40,160,80,160,80,0,0,0,0 

30 SYMBOL 41,10,5,10,5,0,0,0,0 

31 SYMBOL 42,170,85,170,85,10,5,10 

)5 

35 FOR i=0 TO 333 STEP 3 1 PLOT RND* 

638, i, 3: NEXT 

33 PEN 10 

40 LOCATE 1,2:PRINT"R* B* »*Xtl*X** 

Xtt* 8" 

45 LOCATE 1 , 3 : PRINT'S* ' It tt8*Xtt*&** 

n»'«" 

50 LOCATE 1,4:PRINT"B* tt * * tt *»* 

tt$ 8" 
55 LOCATE 1 , 5 1 PRINT" ( ) ( ) ) OX)) 
XO C" 
58 PEN 6 

60 LOCATE 2,7sPRINT"*XX»X8B »XB*X) 
*'/.%%•/." 
65 LOCATE 2,8lPRINT"» **X»8 *X8* 

* **" 

70 LOCATE 2,3:PRINT"» ** 88 * tt* 

* **" 

75 LOCATE 2 , 1 : PRINT " ) %% ) (XX) OX 

> )>X" 
100 p2==70*70:PL0T 700 , 700 , 1 : ORIGIN 

500, 140: FOR h=0 TO 70*0.71 STEP 2 
lJ*SQR<p2-h*h)xM0VE h,J:DRAW h,~J: 
MOVE J, h: DRAW J,-h:MQVE -h, J: DRAW 
-h,-j:MOVE ~j,h:DRAW - J , -h : NEXT 
110 p2=20*20:PL0T 700 , 700 , 1 1 : ORIGI 
N 100, 170: FOR rr-=0 TO 20*0.71 STEP 
2: J=SQR(p2-h*h) i MOVE h, J 5 DRAW h,-J 
:MOVE J, h: DRAW j,-h:MOVE -h , j : DRAW 

~h,-j:MOVE -j,hxDRAW - j , ■■ h : NEXT 
120 PLOT 700,700,5:p2=20*20xORIGIN 

500,200:FQR h"=0 TO 20*SIN(PI/4> S 
TEP 2xJ=SQR<p2-h*h>:PL0T h,J:PLOT 
h,~ J: PLOT -h, J: PLOT -h,- J:: PLOT J , h 
xPLOT J,-h:PLOT -J,h:PLOT -J,-h:NE 
XT 
130 PLOT 700,700,5:p2=10*10:ORIGIN 

450, 150: FOR h=0 TO 1 0*S IN ( PI/4 ) S 
TEP 2: J=SQR(p2-h*h> :PLGT h,j:PLOT 
h,-JxPLQT -h, J: PLOT -h,- J: PLOT J,h 
xPLOT j, -hi PLOT -j,h:PLOT -J,-h:NE 
XT 
140 PLOT 700,700 , 5 : p2==25*25 : ORIGIN 

500,130:F0R h=0 TO 25*SIN<PI/4> S 
T E P 2 : J ■ S R ( p 2 - h * h ) : P I... T h , J : P L T 
h, -J: PLOT -h, jxPLOT -h,-jiPLOT j,h 
:PLOT J, -h: PLOT -j,h:PLOT -J,-hiN£ 
XT 
150 PLOT 700, 700, 5 :p2- 15*1 5 I ORIGIN 

550,100:F0R h=0 TO 15*SIN(PI/4> S 
TEP 2 : j * S R ( p 2 - h * h ) : P L T h , J : P I... T 
h , - J : PLOT - h , J : P I... T - h , - J : P I... T j , h 
:PLDT j,-h:PLOT -J,hxPLOT -j,-h;NE 
XT 



200 LOCATE 12,12:PEN 3 : PRINT " : ; < 
LOCATE 12,13:PRINT"=>?" 
210 LOCATE 7,17:PEN 8 : PRINT"abc" 
OCATE 6,18:PRINT"def g" [LOCATE 6, 
: PRINT CHR* (104) :CHR*( 143) ;CHR*( 
3) ;CHR*< 105) :LOCATE 6,20:PRINT"m 
I " 

220 ORIGIN 2S4,12G:DRAWR 8,0,3:M 
ER - 18, -2:DRAWR 1 8 , , 3 : MOVER -18 
2: DRAWR 10, 0,3: MOVER -18, -2: DRAW 
16,0,3:M0VER ■ -1 6 , -2 : DRAWR 12,0,3 
OVER -12, -2: DRAWR 8, 0,3: MOVER -4 
2: DRAWR 4,0,3 

230 MOVER -40,-12:DRAWR 10,-5,4: 
VER -16, -2: DRAWR 10,-5,4. 
240 MOVER -32, 5: DRAWR 2,0,1: MOV 
-4, -2 -.DRAWR 6,0,1:M0VER -4,-2:0 
WR 10,0,1:M0VER -5,-2:DRAWR 6,0, 
MOVER -12,-2:DRAWR 0,0,1 
250 ORIGIN 284, 106:DRAWR 100,100 

260 ORIGIN 210,130:DRAWR 170,80, 

261 '********•******** 

262 ' * * 

263 '* LAMBERT * 

264 '* * 

265 '* NICOLAS * 

266 ' * * 

267 '* PRESENTATION * 

268 '* * 
263 '* INVASION * 

270 '* GALACTIC * 

271 '* * 

272 ' **************** 
300 RUN"INVA2 



R 

.M 



ER 
RA 
1 : 



LISTING 2 



1 ' ******************* 

2 ' * * 

3 ' * INVASION * 

4 ' * GALACTIC * 

5 ' * * 

6 ' * par LAMBERT * 

7 ' * n i co I as * 

8 ' * * 
3 ' * POUR AMSTRAD * 
10 ' * 464 S664 * 
11'* * 

12 ' ******************* 

13 ' 

14 GOSUB 6000 

15 MODE a:b»0sb=1 xs«"1xv=0xtou»0xsc 
-Oih»100:hs*< 10) -"DAVID" 

16 ' 

17 ' GRAPHISME 

18 ' 

20 SYMBOL 255,0,0,1,3,7,15,31,63 
30 SYMBOL 254,31,127,255,255,255,2 
55,255,255 

32 SYMBOL 253,248,254,255,255,255, 
25b , 255 , 255 

33 SYMBOL 252,0,0,128,132,224,248, 

34 SYMBOL 251,127,127,255,255,255, 
255,1.55, 255 

35 SYMBOL 250,0,24,60,36,189,183,2 
55,153 

3E SYMBOL 243,243,255,111,123,222, 
246,255,207 

37 SYMBOL 248,254,255,255,255,255, 
2 5 .j , ^. J>-i , ±.u*j 

38 SYMBOL 247,255,255,255,255,127, 
127,127,127 

40 SYMBOL 246,16,64,0,177,68,0,64, 
SO 

41 SYMBOL 244,255,255,255,255,255, 
254 , 254 , 254 

42 SYMBOL. 243,63,31,31,15,3,1,0,0 

43 SYMBOL 242,255,255,255,255,255, 
255,255 ,63 

44 SYMBOL 241,255,255,255,255,255, 
255,255,252 

45 SYMBOL 240,252,248,248,240,224, 
128,0 ,0 

1 00 ' 

101 ' ROUT I ME L.M SCROLL 

1 02 ' 

179 INK 0,0: BORDER 0:CLS:MODE 

180 DATA 135,3,112,1,80,5,237,184, 
20 1 , 33 , 63 , 246 , 1 7 , 63 , 254 , 205 , 3 , 1 1 2 , 
33,63, 238 ,17,63,246, 205 ,3,112,33,6 
3, 230, 1 7 ,63 , 238 ,205,3,112,33,63,22 
2,17,63,230,205,3,112, 33 ,63,214,17 
,63,222,205,3,112 

130 DATA 33,63,206,17,63,214,205,3 

, 1 1 2 , 33 , 63 , 1 38 , 1 7 , 63 , 206 , 205 , 3 , 1 1 2 

, 33 , 233 ,253,17,63,138, 205 ,3,1 1 2 , 20 

1,0,0,0 

200 RESTORE 180 

210 MEMORY S6FFF 

220 FOR i=S7000 TO i7054:READ aiPO 
KE i, a: NEXT 

221 ' 

222 ' BObCLE PRINCIPALS 



225 GOSUB 1000: GOSUB 1210: GOSUB 30 

00 

270 po=G2939:x=300 

310 GOSUB 700 

315 EI:PLOT -10,~10,8:M0VE x-32,75 

: PRINT " "; CHR* (250) ;" "(xDI 

345 CALL S7000:CALL S7000:CALL S70 
00 

346 a»a+2lIF a=20 AND b = 1 THEN GOS 
UB 580xv»v*1xIF v=5 THEN s»s+1:v"=0 

348 IF a=20 AND b«2 THEN GOSUB 590 

440 FOR i =62350 TO 63038 STEP 2xf« 

PEEK<i):IF f>0 THEN GOTO 350 ELSE 

NEXT 

460 GOSUB 700 

465 PLOT -10, -10, 8: MOVE x-32,75: PR 

INT " ";CHR*(250> x" "j 

570 GOTO 310 

571 ' 

572 ' APPEL VAISSEAUX 

573 ' 

5B0 FOR i«200 TO 600 STEP 100: MOVE 
i,300:ON s GOSUB 1500,1520,1540,1 

560,1580,1600,1620,1640,1660, 1680, 

1700,1720,1740,1760, 1780, 1800,8000 

: NEXT :a=0:b=2: RETURN 

590 FOR i=240 TO 600 STEP 100:M0VE 
i,300:0N s GOSUB 1500,1520,1540,1 

560, 1580,1600,1620,1640, 1660,1680, 

1700,1720,1740,1760, 1780,1800,8000 

: NEXT : a"»0 : b- 1 : RETURN 

600 ' 

601 ' DEPLACEMENT 

602 ' a 

603 ' TIR 
G04 ' 

700 EIlIF INKEY<3)=0 THEN GOSUB 83 



705 EI:IF INKEY(8)=0 AND x>160 THE 

N x~x-1G:po=po-2:DI 

710 EIlIF INKEY(1)=0 AND x<603 THE 

N x- : x * 1 6 : pO"=po + 2 : DI 

725 DIlTftG 

730 RETURN 

74.1 ' 

742 ' VERIFICATION 

743 ' TIR S EXPLOSION 

744 ' 

830 EI:TAGOFF:LOCATE 1,1:PRINT CHR 
*(23) ;CHR»(1 ) : TAG: MOVE x+ 16,60 :DRA 
WR 0,250, 2: CALL 8;BD13:MOVE xi 16,60 
: DRAWR 0,250,2: TAGOFF : LOCATE 1,1: P 
RINT CHR* (23) ;CHR*(0) : TAG : pb=88 : DI 
840 FOR i=po TO (po-1220) STEP -80 
350 pb=pb + 16lIF PEEK(i)==0 THEN 880 
860 GOSUB 300: PLOT - 1 , - 1 , 2 : MOVE 
x-22,pb:FRINT " ";:MOVE x-22,pb- 
16:PRINT " ";:MOVE x -22 , pb- 32 : PR 
INT" "; Ii=po-1220 

870 TAGOFF: LOCATE 1,1:PRINT CHR* (2 
3);CHR*(1 ) : TAG: MOVE x + 1 6 , 60 : DRAWR 
0,250, 2: CALL KBD13:M0VE xt16,60:DR 
AWR 0,250,2:TAGOFF:LOCATE 1,1:PRIN 
T CHR*(23);CHR*(0i : TAG 
880 NEXT 
830 RETURN 
895 ' 

836 ' EXPLOSION 

837 ' 

300 sc=sc+lO:S0UND 4 ,0,50, 15,2 , ,31 
:MOVE x-22,pt,-16:PRINT CHR*(24S);C 
HR*<243) ;CHR*(246) : 

320 RETURN 

321 ' 

322 ' PLANETE TOUCHE 

323 ' 

350 MOVE 65, 62: DRAWR 0,tou,3 

365 tou~t.ou-2 

366 FOR n=7 TO 1 STEP -1:S0UND 2,3 
26,4.0,11,, , 10: NEXT 

370 GOSUB 4000 
380 GOTO 173 
981 ' 

332 ' DESSIN PLANETE 

333 ' 

1000 PEN 6:L0CATE 1,22:PRINT CHR*( 
255) ;CHR*(254) ;CHR*(253) ; CHR* ( 252 ) 
1010 LOCATE '!,23:PRINT CMR*<251);C 
HF:$ < 1 43 ) ; CHR* ( 143) j CHR* < 248 ) 
1020 LOCATE 1,24:PRINT CHR*(247);C 
HR* ( 1 43 ) ; CHR*< 1 43 ) [ CHR* ( 244 ) 
1030 LOCATE 1,25:PRINT CHR* < 243 ) : C 
HR* ( 242 ) ; CHR* ( 24 1 ) ; CHR* ( 240 ) 
1040 RETURN 

1210 ' 

1211 ' DESSIN DU MONDE 

1212 ' 

1220 FOR a = TO 15: FOR f=0 TO 10 1 M 
OVE 150ta*a,2*atf :DRAW 640-a*a,2*a 
+f,6:NEXT f,a 

1225 MOVE 34, 54: DRAWR 2,0, 12: MOVER 

-6,-2:DRAWR 10 , , 1 2 : MOVER -10,-2: 

DRAWR 10,0, 12: MOVER -14, -2 X DRAWR 1 



8,0, 12: MOVER -18,-2:DRAWR 18,0,12: 
MOVER -16,-2:DRAWR 1 6 , , 1 2 : MOVER - 
16, -2: DRAWR 12,0, 12: MOVER -12,-2:D 
RAUR 12,0,12:M0VER -8 ,-2: DRAWR 4,0 
,12 

1226 MOVER -2, -2s DRAWR 2, 0,12: MOVE 
R 0,-2: DRAWR 2,0,12:MOVER 2,-2:DRA 
WR 0,0, 12:M0VER 2 , -2 : DRAWR , , 1 2 : 
MOVER -4,-2:DRAWR 2,0,12:M0VER -6, 
-2:DRAWR 10,0, 12:M0VER -10,-2:DRAW 
R 10,0, 12:M0VER -8,-2:DRAWR 12,0,1 
2: MOVER - 1 2 , -2 : DRAWR 1 2 , , 1 2 : MOVER 

-8,-2 

1227 DRAWR 6,0, 12: MOVER -6, -2: DRAW 
R 4,0,12:M0VER -4,-2:DRAWR 2,0,12: 
MOVER -2,-2:DRAWR 2,0,12:M0VER 30, 
34: DRAWR 4,0,12:M0VER -6 , -2 : DRAWR 
10,0, 12: MOVER 16,0: DRAWR 4,0, 12: MO 
VER -28,-2:DRAWR 24 , , 1 2 : MOVER -20 
,-2:DRAWR 20 , , 1 2 : MOVER -30,-2:DRA 
WR 34,0,12 

1228 MOVER -38, -2: DRAWR 36,0, 12: MO 
VER -38, -2: DRAWR 34 , , 1 2 : MOVER -34 
,-2: DRAWR 36 , , 1 2 : MOVER -34,-2:DRA 
WR 14,0,1 2 : MOVER 10,0: DRAWR 14,0,1 
2:M0VER -30,-2:DRAWR 1 , , 1 2 : MOVER 

-10, -2: DRAWR 10,0, 12:M0 VER -8,-2: 
DRAWR 4,0, 12: MOVER -4, -2: DRAWR 4,0 
,12 

1223 MOVER -20, -14: DRAWR 10, 0,4: MO 
VER -12, -2: DRAWR 14, 0,4: MOVER -22, 
-2: DRAWR 32,0,4:M0VER -36,-2:DRAWR 

38,0,4:M0VER -26,60:DRAWR 18,0,4: 
MOVER -10,-2:DRAWR 4,0,4 
1230 MOVE 378, 38: DRAWR 26, 0,4: MOVE 
R -50,-2:DRAWR 80,0,4:M0VER -100,- 
2: DRAWR 1 26 ,0,4 :MOVER -220,-12:DRA 
WR 20,0, 12:M0VER -20,-2:DRAWR 20,0 
, 12:M0VER -24,-2:DRAWR 30,0,12:MOV 
ER -30, -2: DRAWR 30, 0, 12 : MOVER -30, 
-2: DRAWR 30,0, 12 :MOVER -36,-2:DRAW 
R 42 ,0, 12 



1231 MOVER -42, -2: DRAWR 4 
VER -50, -2: DRAWR 60,0,12: 
,-2:DRAWR 60 , , 1 2 : MOVER - 
WR 60,0, 12:M0VER -64,-2lD 
,12:M0VER -70,-2:DRAWR 70 
E 400, 5: DRAWR 20,0, 12: MOV 
: DRAWR 30 , , 1 2 : MOVER -34, 
40,0,12 

1232 MOVE 500,2:DRAWR 20, 
R -22, -2: DRAWR 50,0,12 

1233 MOVE 65, 62: DRAWR , t 
1235 RETURN 

1433 ' 

1500 ' 1 er VAISSEAU 

1501 ' 

1510 DRAWR -12, 0,2: MOVER 
R 14, 0,2: MOVER -22,2:DRA 
:MOVER -34,-2:DRAWR 38,0, 
30 , -2 : DRAWR 1,0,1: MOVER 2 
, , 1 : MOVER - 1 2 ,10: DRAWR 
ETURN 
1513 ' 

1520 ' 2 em VAISSEAU 

1521 ' 

1530 DRAWR 1 , , 8 : MOVER - 
WR 14, 0,8: MOVER -14, -2 i OR 
: MOVER 2,0: DRAWR 8, 0,3: MO 
RAWR 2, ,0,3: MOVER -16,-2:D 
,8: MOVER -12, -2: DRAWR 10, 

-20,4: DRAWR 4,0,2: MOVER 
R 4,0,2 
1535 MOVER -32,-6:DRAWR 



2,0,12:M0 
MOVER -60 
60, -2:DRA 
RAWR 70,0 
,0, 12: MOV 
ER -24,-2 
-2: DRAWR 

0, 12:M0VE 

ou, 3 



0,-2: DRAW 
WR 30,0,3 
3: MOVER - 
2,0: DRAWR 
4 , , 2 : R 



,-14:DRAWR 0,1 4, 2: RE 



12,-2 


:DRA 


AWR 2 


,0,8 


VER 2 


, : D 


RAWR 


14,0 


0,8: MOVER 


24,0: 


)RAW 


,14,2 


:MOV 


TURN 





3 em VAISSSEAU 



-2: DRAWR 
1 4 , , 2 : M 
MOVER -2E 
: DRAWR 2, 
: MOVER 2, 
RAWR 2,0, 

2: MOVER - 
-14,-2:DR 
WR 2,0,1: 



ER 31 
1533 
1540 
1541 ' 

1550 DRAWR 2,0,1: MOVER -4 
6,0,1: MOVER - 1 , - 2 : DRAWR 
OVER -18, -2: DRAWR 22,0,2: 
,-2: DRAWR 4, 0,2: MOVER 2,0 
0,3: MOVER 2,0: DRAWR 2,0,2 
0: DRAWR 2, 0,3: MOVER 2,0 :D 
2: MOVER 2,0: DRAWR 2,0,3 
1555 MOVER 2,0:DRAWR 4,C 
28, -2:0RAWR 24,0,2:M0VEP 
AWR 6,0,1:MOVER -4,-2zDRA 
RETURN 
1553 ' 

1560 ' 4 em VAISSEAU 

1561 ' 

1570 DRAWR 8, 0,2: MOVER 4, -2: DRAWR 
-16,0,2:M0VER -2 , -2 : DRAWR 2 , , 2 : MO 
VER 0,0: DRAWR 20, 0,6: MOVER 0,O:DRA 
WR 2,0,2:MOVER -26 , -2 : DRAWR 2,0,2: 
MOVER 2,0: DRAWR 18, 0,6: MOVER 2,0:D 
RAWR 2,0,2 
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ROMBO 



QuOl ? M0l* JAW 05 PMfol 1 - 



Pour acceder lui aussi au vedettariat, ROMBO, passable- 
ment envieux du success de son celebre cousin RAMBO, se 
risqua dans la traversee d'une grotte infernale... 

Didier RICHER 

Mode d'emploi : 

Tapez et sauvegardez a la suite ces deux programmes par GOTO 9999 

Les regies sont incluses. 




SO LET N = 0: RESTORE £5' FOR 
63824 TO e.4560 REhD A: LET N=N + 
ft POKE F,A: NEXT F 

32 IF N072564 THEN GO SUB 930 
0: PRINT ftT 11,5, INK 2; FLASH 1 
, "ERREUR5 DANS LES DATAS" FOR F 
=20 TO 40 BEEP .O05,F: NEXT F. 
LIST SO 

25 DATA 0,0,0,7,15,15,15,63.0, 
0,0,240 , 246,245,248 .254, 31.31,31 
,15,15,7,3,7, 340 , 233 ,254 , 240 , 192 
, 240 , 192 , 224 , IS , 27 , 59 , 125 , 125 . 25 
3, 254, 254,240, a 16, 220,233 .233 .23 
9 , 247 , 247 , 254 , 254 ,0.0, 127 

30 DfiTP, 63,31,15,247,247,120 , 
120,99,30,248 .240, 7, 15,31 ,60, 112 
, 2=;4 , 48 , 24 , 224 ,, 192 , 32 , 240 , 120 , 59 
,30, 12, 15,27,59, 123, 123,251 .251, 

251 .251 .251.3.3.251. 120.63.31 . 15 
,7,3,3,3.3,3,3, 240 , 216 , 220 , 222 , 2 
22 , 223 , 223 , 223 , 223 , 223 , 192 , 192 , 2 

40 DflTfl 30,252,246,240,192,128 
, 128 . 123, 123, 128 ,224 , 15,2 7 ,59, 11 
9, 119,247 ,239 ,239 ,2 39 ,222 ,30 ,30, 
198 , 120 . 63 ,15,7,11, 29 ,60,112, 224 
,96,48,240,216 ,220 . 190, 190, 191, 1 
27,127,127, 255 ,0,0,254,252,243,2 
40,224 

50 DfiTP 192,224,240,112,59,30, 
12. 0,0, 0.7,0, 15, 0,63, 0,0,0, 240 , 
, 248 . , 254 , 0, 15 ,0, IS ,0,7 ,0,3 , 0, 2 
32 . , 176 , , 240 . , 224 ,0,27,0, 123 , 
0,251,0,251 ,0 .251,0,3,0, 120,0,31 
,0,7,3,3,0,3,0,3,0,216,0,222,0,2 
23 .. , 22 J , , 223 

60 DfiTfi 0,192,0,30,0,248,0,192 
, , 128 , . 128 , , 224 ,0,0,0,7,0,0,1 
5,0 , O,0,O .240,0 ,0, 248,0,0, 31,0,0 
, IS ,0 ,0,7 ,0 ,232,0, 0, 192,0 ,0,224 , 
0,0,59,0.0,251,0,0,251,0,0,3,0,0 
, 63, 0, 0, 7, 0, 0,3, 0.0, 3, 0,0. 2 16, 0, 


70 DHTft 222,0,0,223 ,0,0, 19.=:, 0, 
, 254 ,0,0, 240 ,0,0,128,0,0,123,25 

5 . 255 . 255 . 255 . 255 . 127 . 127 . 127 . 16 
9,81, 169,81, 162,82, 162,32 ,127,63 
,63,63,63,31,31,31, 164 , 68 , 164 , 63 
, 136 , 72, 136,72, 3 1 , 15 , 15 , 15 , IS , 7 , 
7,7, 144 

80 DfiTfi 30,144,60,160,32,160,3 

2 . 3 . 3 . 3 . 3 . 3 . 1 . 1 . 1 . 64 . 64 . 64 . 64 . 12 
•3 , 128 , 128 , 128 ,63,1,16,4,64,9,36, 

123 . 139 . 33 .4.30.5.33.2. 68 . 200 . 13 
0,40,130. 33 , 136 ,194,16,8,8, 28 , 28 
, 58 , S8 , 58 , 28 , , . , 145 , 36 , 137 , 90 
,80, 190, 194, 131,255, 195, 129, 131, 

''90 DfiTfi 235,134,3,7,135,252,16 
0,97,60, 114, 249, 253, £53, 255, 126, 
60 ,0,0,0 ,60,251 ,253,255,60, 2,2,2 
43 , 125 , IS , 4 , 8 , , 64 , 64 , 207 , 188 , 24 

8 , 3a , 16 , O , 2 , 2 . 3 , 29 , 127 , 196 , 136 , 
, 64 . 64 , 192 , 184 , 254 , 39 , 17 , O , 8 , 3 , 2 
3,23 .62 ,62 

100 DfiTfi 28,28,28,23,28,28,28,2 
8 , 28 , 28 , 251 , 2S1 , 251 , , 223 , 223 , =:2 
3,0,0,62, 127 , 127 , 127 , 127, 127 ,62 , 
, 227 . 247 , 247 . 247 , 247 , ^47 , 227 , 25 
5 , 25S, 255,255,255, 255,221, 140,25 
5 . 255 , 2SS , 2SS , 255 . 251 , 179 , 32 , 255 
,255 .255 .255 

110 DfiTfi 255, 125,56,24,255,255, 
2S5 , 223 , 156 ,12.8,0, 255 , 254 , 250 , 2 
50 , 242 . 176 , 144 , 160 , 255 , 127 , 127 , S 
5,55,51,19,1, 255 ,126,60 , 60 , 28 , 56 
, 60 , 28 , 62 . 60 , 1=;0 ,60 , ^ ,56,60,60 , 
56,124,146, 146 , 254 , 170 , 84 ,56,64, 
240,72, IS, 15 

12© DfiTfi 72,240 ,64 ,68, 124, 146 , .= 
54,214 ,254,68, 124, 124, 198 , 146, 19 
•5 , 254 , 198 , 63 , 56 , 159 , 177 , 228 , 113 , 
63 . 13 . 10 . 7 , 249 ,141^ 39 , 142 , 252 , 72 
, 30 , 224 ,0,82,127,62,0,227,247,22 

' 130 DfiTfi 130,198,193,124,146,25 
4 , 170, 124 , 129 . 169, 219, 126,90 , 126 
, 66 , 60 , 129 , 189 , 66 , 90 . 66 , 126 , 36 , 6 
, 255 , 85 . 2SS , 170 , 2F5 ,0.0.0 

140 DfiTfi P, 0,0, 0,0, 0,0, 0,0, 0,0, 
0,0,0,0,0.0.0,0,0.0.0,0.0.0,0,0, 
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0.0,0.0,0.0,0.0.0.0.0,0.0 

190 RETURN 

200 

201 REM «SHI-T;Ttt.3 33a»3H3MH35M 
202 

210 LET NO=0: RESTORE 220 FOR 
F =64696 TO 6S150: REPD ft LET No 
=NO+fi POKE F.fi: NEXT F 

21F. IF NO .53660 THEN GO 5UB 93 
00 PRINT fiT 11,5. INK. 2, FLfiSH 
i. "ERREUR DANS LES DftTftb 1 FuR F 
=10 TO 30 BEER .005, F: NEXT F: 
LIST 200 

220 DfiTfi 124,254,238,193,238,19 
0,40,0.24.43.120,24,24,44,40,0,1 
24 . 254 , 6 . 124 , 192 , 254 , 150 , , = 54 , 2 
52 , 24 . 60 . 6 . 2S4 , 164 , , 12 , 12 , 60 , 10 
3 ,254, 12 .3,0 

230 DfiTfi 216,254,192,252,6,254, 
76 ,0.76. 254 , 192 , =:0=: , 193 . 254 , 34 , O 
. 206 . 252 . 12 , 24 , 24 , 43 . 16 , . 76 , 254 
, 196 . 124 . 198 , 254 ,100.0,92,254,19 
3 . 126,6,254,34 

24© DfiTfi 0,0.56.40.0,56,40.0,0, 
0,0,0.0,0,56.40,24.40,0,0,0,0,0, 
. 60 . 90 , 153 , 231 . 231 , 153 , 90 ,60,3, 
16 3, 170, 170, 171, 74, 74, 75, 0,0, 0,0 
,0,0,0,0,60,66,169,161, 139 , 149 , 6 
6 , 60 

250 DfiTfi 0,56.56,108,124,236,10 
2 , 193 , , 92 , 254 , 230 , 124 , 230 , 126 , 2 
23 .0 .60 , 116, 112,224,240 , 126,52,0 

. 152,252 . 126, 198, 110, 124 ,216,0, 1 
52 ,252,224 .124, 224, 126, 21=1,0, 172 

, 248 . 96 , 252 , 96 , 96 , cd4 ,0,44, 126 , 2 
40,96 . 110 , 126 ,42,0 

260 DfiTfi 170.236,110,126,238,11 
. 234 , . 34 , 124 , 56 . 56 , 56 , 124 ,44,0 

, 14 , 6 , 14 . 6 , 236 , 124 ,8,0, 238 , 106 , 1 
20 . 240 , 246 , 108 . 206 , , 224 , 96 , =:24 , 
96 . 224 , 254 , 216 , . 138 , 238 , 126 , 252 



,212,56, 210,0, 142,204 ,110, 12c-, 23 
6 , 102 . 226 , 

270 DfiTfi 56,134,126,110,252,60, 
16 . , 2S2 . 126 . 102 , 254 , 244 , =16 , 224 , 
. 56 , 124 . 126 . 233 . 2S4 , 60 , 22 , , 188 
, 254 , 102 , 124 . 252 . 108 . 233 , , 76 . 25 
4 .240, 124,30,254 .34,0, 154 ,254 .25 
4,56 ,48,56 .40 ,0 

260 DfiTfi 172,238,238,110,124,25 
4 , 100 , , 196 , 233 , 104 , 124 ,56, 56 , 16 
,0,214 ,54 ,36 ,252 , 124 , 238, 160, , 1 
66 , 336 , 108 , 56 , 105 , 238 , 166 , , =38 , 
103 , 124 .56,24,56,40,0, 166,254 , 14 
,24 ,50 . 126 .214 

290 DfiTfi 252 , 130, 130, 130 ,25=, 13 
6 , 132, 150, 124 . 130, 130 , 130, 130, 13 
, 130, 124, 130, 198, 170, 146, 160, IS 
, 130 , 130 , 248 , 132 . 132 , 2S2 , 130 , 13 
0, 130,252 

300 DBTft 0,231,143,145,230,164, 
146, 151 , , 119,69 .69 ,69 ,69 ,69, 119 
,0, 115, 74, 74, 114, 52, 74, 75,0, 140, 
76,64,64 .76 . 76 , 12c> 

310 DfiTfi 0,235,136,136,232,40,4 
, 238 , , 236 . 169 , 169 , 174 , 170 , 169 , 
233,0 . 112,70,70,96,70,70, 112 

320 DfiTft 0,226,138,133,268,42,4 
2 , 234 , 8 , 156 , 136 , 136 , 136 , 136 , 136 , 
236,0,230, 134, 128, 192, 134 , 134,22 
4 

499 RETURN 

500 

501 REM 

S02 

504 LET A* = " =============== 

= = = = = = = = = = = C\:t\ S D.RIC 

HER 1986 = =============== 







*&&\ 




S05 LET fi*=ft* + ' 
SIN DE RfiHBO, 
DE IGNORE SON 
POUR SE FfiIRE 

S10 LET fi*=fi*f 
ftUERSERLfi GROTTE 

OfiR BEfiUCOUP 
TRES MAIS PERS 

Cftfi ELLE EST 
5 ET ELLE EST 
TRES" 

515 LET A*=A*+" 

IL SERfi LE SEUL 
IR REUSSI GET E 

S20 LET A*=A*+ 
GftGNER L; EST I ME 



[\]t\ EST LE COU 

MfilS TOUT LE HON 

EXISTANCE. ALGRS 

CONNAITRE" 

IL DECIDE DE TR 

INFRftNCHISSftBLE 

OtHOMMES SONT EN 

ONNE N<EST SORT I 

ENUfiHIE DE PIEGE 

PEUPLEE DE MONS 



S< IL REUSSI 
ftU MONDE fi AU 

PLOIT" 

ftlNSI IL E5PEP.E 

D -.EVERYBODY, 



UOUS DEUEZ ft IDE 
R[\3t\ ft ARRI'JERA Lfi SORTIE PuUR 

O'JilL DE'JIENNE UN HEROS COMME 8 
ON COUSIN" 

525 LET A*=A*+", 

550 INK 7: PAPER 0: BORDER 0: C 
LS : GO SUB 9400 FOR F=l TO LEN 

A*: PRINT INK P.ND*6 + 1, H* IF) , : I 
F A*(F;i;>" " THEN BEEP .005, RND* 
60: BORDER RND*6 

560 NEXT F 

S78 PAUSE 0: GO TO 2000 
1000 „.— ,, — ^— 

1002 

1005 INK 4: GO SUB 9300: PAPER 

: BORDER 0: CL3 : PRINT fiT 10,7, 

FLftSH 1, INK 6; PAPER 2, "fiPRETE 
Z LE MAGNETO" : FOR F = 18 TO 40: 6 
EEP . 001,F: NEXT F: GO SUB 200 
1010 GO SUB 9400 PRINT RT 10,3: 

FLftSH 1. INK 1. PRPER 4; "ATTEND 
EZ UN INSTfiNT S.U,P;" 
1015 FOR F=10 TO 40: BEEP .001,4 
0-F: NEXT F: GO SUB 20 
1020 GO TO 500 
2000 LET ZX=0 
2005 BEEP .001.20 BEEP .001.30: 

BEEP .001,40: BEEP .001,50: BEE 
P .001,60 

2010 LET ZX=ZX+1: IF ZX=10 THEN 
GO TO 2060 
20=!0 GO TO 2005 

2030 FOR F=-20 TO 60: BEEP .005, 
F . NEXT F 

3000 BORDER 0: GO SUB 9400: PfiPE 
R 0: FLfiSH 1: CLS . LET ft=0 
3005 BEEP .005,RND*60: LET A=A + 1 
: PRINT fiT 10,4; INK RND*6+1;"DE 
MftRREZ UOTRE MAGNETO" 
3007 IF fi=S0 THEN GO TO 4000 
3010 GO TO 300S 

4000 BORDER 0: PAPER 0. GO 5UB 9 
400: FLASH 0: CLS 

4S10 FOR N=0 TO 21. PRINT AT N,0 
. INK 2,"=",AT N,31,"=": NEXT N 
401S PRINT AT 0,0, INK. <;,"= = = = = = 

==============""flf 0,0,"=";fiT 0, 

4020 INUERSE 1: FOR N = l TO 21: P 
PINT AT N,l, INK 6;"=", AT N,30," 
=" NEXT N 
4025 PRINT fiT 1,1, INK e^INUERS 

= = = ", il~AT "oTir'lNK'ir'lNUERSE 1 



4030 INUERSE 0: FOR N=2 TO 20: P 
PINT AT N.2; INK l;"="iAT N,29i" 
= " ; NEXT N 
4035 PRINT AT 2,2, INK 1, "====== 

4050 ~PR INT ~ftf~l IT'S" "FLASH 1. INK 
1, PAPER. 3; "CHARGEMENT DE [\]t\ 

4055 PRINT AT 5,5. INK 7, " [si t\ " 
. INK. 2," >J", INK. 4," DIDIER RIC 
HER" 

5000 POKE 23606,56: POKE 23687,2 
43: PRINT fiT 13,6, INK 1,"8*";AT 
14,6, INK 3," Xi", AT IS, 6; INK 1 
."i.", AT 16,6;")*"; AT 17,6;" + ," 
5010 PRINT fiT 13,14, INK. 1,"»*", 
AT 14,14, INK 3;"X*";AT 15,14, I 
NK 1;"-0";AT 16,14; ".1"; AT 17,14 

5020 PRINT ftT 13,22, INK 1; "*»$"; 
ftT 14.22, INK 3, ">.V , AT 15,22; I 
NK 1, "36", ftT 16,22, "47", ftT 17,22 

6088 POKE 23624.8 INK. 8: PAPER 

0: LOAD "ROMBO" 

9300 POKE 23606,0: POKE =3607.6© 

RETURN 
9408 POKE 23606,55. POKE 23687,=: 
SI. RETURN 
9999 SA'.'E "Lane. ROMBO" LINE 1000 



POKE 23607 



POKE 23607,2 
POKE 23607,60 



fcf-TJ»J-ll 



100 POKE 25606 , 
51 RETURN 

118 POKE 23606. 
43 . RETURN 

120 POKE 25606 
RETURN 

997 

999 

1800 LET GG=4500. PRINT AT 8,0, 
INK 7, "NMNOPMNOROPHNMNOPOROPMNOP 
MNORMNOPOPOROPSTOROPOPORSTOP.OPOR 
OPSTOPQRQRSTQR STORORST STORST 
OR ORSTST ST STST 5T 
ST ST " 
1085 PRINT AT 13,0, PAPER 6, INK 

0, "UUUUUUUUUUUUUUUUUUUUUUUUUUUU 
UUUU" 
1810 FOR F = 14 TO 21 STEP 2. PR. IN 

t at f,8. ink 6; "zczczczczcz czcz 

cz cz cz cz tz cz cz :z i cz cz cz cz r.z r.z r.z c 

ZCZCZtZCZCZ CZCZ CZ" : NEXT F 

1015 LET Yl=5 

1828 LET A*=SCREEN* 

ET C*=SCREEN* (Yl + 1, 

SCREENS lYl+1,20) 

1021 IF A*:>"U" AND A$<>" ' 

$i>"U" AND C«<>" " OR EtO' 

D E*<:.-"U" THEN GO TO 49S0 

1024 LET <"l=Yi + l 

1025 IF v'l = 12 THEN PRINT AT 
0, INK 2; "3", AT Yl-1,10;' 

1,15; "3 "; AT Yi-i, ■- 
;"]"; fiT Yl-1,20; ' 
BEEP .01,-20 

1030 PRINT fiT Yi, 
T Yt-1, 10; " " 

1031 PRINT fiT 
T Yl-1, 15, " " 

1032 PRINT AT 
T Yl-1,20, " " 
1035 IF X=29 THEN CLS 
500: LET Tfi=S 
UB 1100: LET 
8: LET X=0 
1040 RETURN 
1058 LET A* = S 
ET C*=SCREEN* 
SCREEN* (Yl-1, 
1051 IF A*<>" 
-; >" " THEN GO TO 
1.0S4 LET Y1=Y1-1 
1855 IF Yl=6 THEN LET G2=1020 



, IS, 



, 10, 



-1 + 1 , 10) : L 
Vl . LET ES = 



OR C 
" AN 



'1,1 

, AT Y 

. AT Y 1 , 20 

LET G2=1050 



Yl, 15, 

Y1.20, 



INK. 2, 
INK 2, 



INK 



. ", A 
*", fi 



, A 



GO SUB 7 
50 SUB 8002: GO 8 
=1130: GO SUB 499 



:REEN* (Yl-1, 10) : L 
(Yl-1, IS) : LET E* = 
50) 

OR C*<>" " OR E* 
" 1-950 



Yl, 1« 
Yl, IS 



INK 



INK 



1860 PRINT AT 
T Yl + 1, 10; " " 

1861 PRINT fiT 
T Yl + 1, IS; " " 

1062 PRINT fiT Y1.20; INK 2,"\".;fi 
T Yl + 1, 20; " " 

1865 IF X=29 THEN CLS : GO SUB 7 

580- LET TA=2. GO SUB 3882: GO S 

UB 1108. LET 02=1130: GO SUB 499 

0: LET X=B 

1070 RETURN . LET G2=10S0 

1108 FOR F=13 TO 18: PRINT AT F, 

8; INK 0, PAPER 6,"UUUUU",fiT F,l 

0; "UUUU"; AT F, 19. "gUU" . AT F,aS," 

UUUU" : NEXT F 

1118 FOP F=19 TO 21: PRINT AT F, 

0; INK 0, PAPER 6. "UUUUUUUUUUUUU 

UUUUUUUUUUUUUUUUUUU" : NEXT F 

1120 PRINT AT 8,0, INK 5,"NOPORM 

NOPMNijROPMNOPSTMNOPOPMNORMPORSTO 

PQROPSTORGPST OPORQROPSTORST O 

RSTOR STOR ORSTSTOR OT 5 

T ST ST ST ST S" 

1125 LET ¥1=5: RETURN 

1138 PRINT AT Yl,18; INK RND+6+1 

, OWER l;"X",AT Yl, 19, "X".: AT Yl, 

28,"X",AT Yl-1,10; OUER 8," " , AT 

Yl-1, 19," "; AT Yl-1, 28;" " 
11S8 IF i 1=12 THEN PRINT AT Yl, 1 
0. INK RND+6+1, "Y" . AT Y1,19,"Y", 
AT Yl,28; "Y": BEEP .001,55. PRIN 
T AT v'1,10," ",AT VI, 19;" " , AT t 
1,26; " " : LET Yl=5 

1155 IF SCREEN* (Yl+l,10)<>" " T 
HEN GO TO 4950: LET Y=12: LET X= 
8 

1156 IF SCREEN* IY 1+1 , 19) < > " " T 
MEN GO TO 4958 LET Y=12. LET X= 


1157 IF SCREEN* iYl + 1 , 28) '. > " " T 
HEN GO TO 4950: LET Y=12: LET X= 


1168 IF X=29 THEN CLS : GO SUB 7 
508 LET Tfi=3: GO SUB 8882: GO 3 
UB laee LET G2=1230: GO SUB 499 
0: LET X=0 

1170 LET Y1=M + 1: RETURN 
1200 PRINT fiT 0,0; INK 1;"NMN0PM 
NuROPMNMNOPOROPMNOPHNORMNOPOPORO 
PSTOROPuPORSTOROPOROPSTOPORORSTO 
R STORORST STORSTQR ORSTST S 
T STST ST 3T ST " 
1210 FOR F=19 TO 21: PRINT fiT F, 
0, INK 8, PAPER 2, "UUUUUUUUUUUUU 
UUUUUUUUUUUUUUUUUUU": NEXT F 
1228 FOR F=13 TO 18. PRINT AT F, 
0. INK 0; PAPER 2, "UUUUUU", AT F, 
18, "UUUU", AT F , 19. "UUU"; AT F , as ; 
"UUUU" NEXT F PRINT AT 12,17," 



LISTING 2 



1 REM 
5 REM 



IHL 1 I ' I 



1222 LET Yl=7: LET 

1225 RETURN 

1238 IF xl=0 THEN 

LET Xl=30 

1231 IF SCREEN* i 
N PRINT AT Y1.X1, 
GO SUB 400© GO 

1232 PRINT fiT Y1,X 
BEEP . 005, X 1*2 

1239 IF X=29 THEN 
500. LET Tfi=4. GO 
UB 12S0: LET G2=ia 
LET x=0 
1248 LET X1=X1-1 
1250 PRINT AT 13 

6, "UUUUU", AT 13 
0, "ra " . AT 13 , 16., 
.AT 13,29. INK 8 
1255 FOR F=14 TO 
3. INK 8. PAPER 6, 
. INK. 3." PAPER 0. " 
• AT F .22. "n " ; AT F , 
ER 6. "UUU" NEXT f 
1260 PRINT AT 21.0 
6 . "UUUUUU U U UUUUUU 
UUUU" 

1265 PRINT ftT 19, S 
.AT 19 . 18, "bbbbbb" 
bb ' . AT 19,23. "bbbb 
1267 PRINT AT 20,5 
. AT 20, 10; "c c ■:•:•:•: 
CC" ;AT 20,23, "CCCC 
1270 PRINT AT 0,0, 
NORMNOPHNOPOPMN", 
■■■ . INK 1, ' PijP 
ROR" . lr4K 2 . " 



xl=30 

PRINT AT ,1,0.; 

1,X1) ■, >" " THE 
". LET XI =3 
TO 4950 
1; INK 6, "0 " . 

CLS GO SUB 7 
SUB 3002 GO 5 
90: GO SUB 499 

RETURN 

. INK O. PAPER 
, INK 3. PAPER 
" , AT 13,22; "m " 
PAPER 6. "IJUU" 
0. PRINT AT F, 
"UUUUU ".AT F,9 
n " , AT F , 16, "n" 
29, INK 0. PAP 

INK . PAPER 
UUU UUUUU UUUUUU 

, INK S. " bbbb" 

, AT 19, 17, "bbb 

bb" 

, INK 5, "CCCC" 

, AT 20,17; "CCC 

c c" 
INK 1, " PMNQPI 

ROPSTCtP OPOPuRu 
INK 1 



RSTOR ST ST OR" ; INK. 2. 
INK 1; " ST ST 5 
ST", INK 2, " ■■■■ 
: AT 4 ,25. " l.'Jh i K I j" 
1268 RETURN 

1290 IF X=29 THEN CLS GO SUB 7 
SO© LET TA=5: GO SUB 5O02. GO 5 
UB 1500 LET 02=1320 GO SUB 499 

LET x=0 
1299 RETURN 

1500 PRINT AT 15.0. PAPER 6. INK 
0;"UU"; INK 4, PAPER 8, "in iii in in in rn re 
rn re re re m in re re re re re re re re re re re re re re re in re " 

1305 FOR F=14 TO 13. PRINT AT F, 
0, INK O, PAPER 6;"UU"; PAPER 0, 

INK 4, "ririnriririririnrinnnrinnnrinrinrinn 
nnnnnn " tJEXT r' 

1307 FOR F=19 TO 21. PRINT AT F, 
0, INK O, PAPER 6;"UU"; PAPER 5, 

INK, 4, "nririnririnnnnnnrinrinnriririnnrin 
nnnnnn " next f 

1510 FOR F=0 T O 3. PRINT AT F,3. 

maHMHHMBMBMH 

1315 PRINT AT 4,0; INK 2, PAPER 
0, "9h i jghhih J9h9 i jhhjhj99ihgh jhh 

1 h J " 

1319 RETURN 

1320 IF X=7 THEN LET G2=1335: GO 
TO 1330 

1325 RETURN 

1338 LET Yl=12. LET V3=9: LET X2 
=0: LET XI =30 

1335 IF X2>28 THEN LET X2=0. PR I 
NT AT Y2,30, " 

1336 PRINT AT Y2.X2, INK 7;" £-3 
". BEEP .805,-10: IF X1-.0 THEN L 
ET xl=30; PRINT AT Y1,0;" " 

1337 IF SCREEN* IVl.XilO" " THE 
N PRINT AT Yl.Xli" ".AT Y2,X2;" 

: LET Xl=21: LET X2=20: GO 
TO 4950 

1339 IF SCREEN* lY2,X2+4)<>" " T 
HEN PRINT AT Y2/X2 + 1," " ; AT Yl 
,X1;" ": LET X1=S1 LET X2=20 

GO Tu 4y50 

1340 PRINT AT Y1,X1, INK 5,"P ": 
BEEP .005, 10+F 

1358 LET X1=X1-1 

1368 IF X=29 THEN CLS : GO SUB 7 

588 LET TA=6: GO SUB 3002 GO 3 

UB 1400: LET 02=1440: GO SUB 499 

0: LET X=0: GO TO 1455 

1581 PRINT AT Y2,x.2, INK 7," t_ 

": LET X2=X2+2 

1399 RETURN 

1400 LET GG=43S0 FOR F=0 TO 3: 
PRINT AT r.Q INI- 2. B ^lMiM 

(■HKnmMMaMi 

1485 PRINT AT \ INK 2, " ijhjt '. 

i (■■■■■■■■■■■BHI 
'.ah i ,ih i g j K i. ih i j " 
1410 PRINT AT 13,0; INK 4,"mmmrnrii 
rim", AT 13,25; INK. O, PAPER 4,"UU 
UUUUU" 

1415 FOR c =14 TO 18: PRINT AT F, 
0, PAPER 0; INK 4, "nnnnnnn" , AT f 
,25, INK O, PAPER 4; "UUUUUUU" : N 
EXT f 
1420FOR F=19 TO 21 PRINT AT F, 

O, PAPER 5, INK. 4, "nnnnnnn 

; AT I ,25; INK 0. PA 
PER 4; "UUUUUUU" ■ NEXT f 
1438 RETURN 

1435 LET Yl=13: LET Xl=10 
1448 IF Xl=16 THEN LET G2=14S5 
144S PRINT AT Y1,X1, INK 2. RAPE 
R 8;" '.; PAPER 7,"ddd" . BEEP .00 
5, XI 

1447 IF X=29 THEN CLS : GO SUB 7 
500: LET TA=7: GO SUB 8002: GO S 
UB 1500: LET 02=1540: GO SUB 499 
0: LET X=0: GO TO 1548 
14S0 LET X1=X1+1: RETURN 
1455 IF Xl=10 THEN LET G2=1440 
1460 PRINT AT Yl.Xli INK 2, PARE 
R 7;"ddd", PAPER 0," " : BEEP .00 
S.X.I 

1470 IF X=29 THEN CLS : GO SUB 7 
508: LET TA=7: GO SUB 1500: GO S 
UB 30O2: LET G2=1S40: GO SUB 499 
0: LET X=0: GO TO 1540 
1480 LET Xl=xl-1 RETURN 
1500 LET GG=43S0: FOR F=Q TO 3 
PRINT AT F.Q, ini- 2. ^— — 

1505 PRINT A T 4,0, INK, a. " ahi ,i>. I. 

i 9 i. IMHHIH 

1. 9K i jhig jK l.hi j" 
1510 PRINT AT 13,0, INK O, PAPER 

4; "UUUUUU"; INK 2, PAPER 7,"ddd 
dddddddddddddddddd" , INK. 0, RAPE 
R 3, "UUUUU" 

1515 FOR F=14 TO IS: PRINT RT F, 
0; PAPER 4, INK 0, "UUUUUUU", AT f 
,26; INK O. PAPER 3, "UUUUUU": NE 
XT f 

1520 FOR F=19 TO 21: PRINT AT F, 
0, INK 0, PAPER 4 , "UUUUUUU"; PAP 
ER S, INK 4, " 
", INK 0, PAPER 3. "UUUUUU": NEXT 

f 
1525 LET X1=INT i RND* 14) +7 
1530 RETURN 

1548 IF X=Xl-a THEN PRINT AT 13, 
XI; " 

1S45 IF X-.X1-2 THEN PRINT AT 13, 
XI; INK. 2, PAPER 7, "dddddd " 
1550 IF X =29 THEN CLS : GO SUB 7 
508. LET TA=6. GO SUB 1608: GO 3 
UB 3002: LET 02=1650 GO SUB 499 
O LET X=0 GO TO 1625 
1560 RETURN 
1600 FOR F=0 TO 4: PRINT fiT F,8; 

2, '■■■■■iHBaHgn 



NEXT F 
1605 PRINT A T 3,0: INK 
■•3h 1 J K l.hq ii KHBMBq I. h W 
I. I. lh9.it l.ih i " 

1618 FOP F=13 TO 18: PRINT AT F, 
0. INK 8, PAPER 3, "UUUU" ; AT F.25 
INK 2. PAPER 7."dddd" NEXT F 

1620 FOR F=19 TO 21 PRINT AT F, 
0. INK 0. PAPER 3, "UUUU". PAPER. 
5, " ", IN 
K 2, PAPER 7, "dddd": NEXT t 

1621 LET A=10 LET X=0 LET G2=l 
630 

1625 LET »1=14 LET x2=14. LET Y 
1=13: RETURN 

1630 IF M = 13 THEN LET G2 = 1650 
1635 PRINT AT Yl.Xli PAPER 0," " 
, INK 2. PAPER: 7,"d";AT Yl,x2,"d 
", PAPER 0, " BEEP .0O5,X2 
1637 IF X =29 THEN CLS : GO SUB 7 
508; LET TA=9: GO SUB 3002 . GO 3 
UB 1708: LET 02=1730: GO SUB 499 
0. LET X=0 

1640 LET X1=X1+1: LET X2=X2-1; R 
ETURN 
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C'est nouveau, pa went cfe sortir 



JAMAIS 18 

SANS 15 



g~\ a vous dirait, un petit war- 
I game ? Meme s'il etait tout 
\f en vil et vulgaire basic ? 
Oui ? Bon d'accord, faut encore 
que je bosse, quoi. Merci, les gars, 
merci, je prends note. 
Vous connaissez tous la celebre 
bataille de Waterloo, au sujet de 
a propos de laquelle Je vais vous 
demander la date. Hein ? Vous 
savez pas ? Nuls ! Et c'est pour 
des lecteurs aussi nuls que je me 
decarcasse ? Ca se passait en 
1815, bande d'ignares. Et ga 
opposait qui et qui ? Allez, je vous 
aide un peu : ga commence par 
"Napo" et ga finit par "leon". 
Vous voyez ? Parfait Et a qui il 
etait oppose, ce cher Bonaparte ? 
Aux Anglais, d'une part, oui, et... 
La ga devient plus dur, hein ? Aux 
Prussians, bravo au petit Yves 
Mourousi (NDLR : il paraTt que 
Mourousi nous lit, alors, Yves, si 
t'es au bout du fil, te (ache pas. 
Remplace ton nom par Alain 
Decaux, ou Claude Serillon, t'as 
le choix...), il aura un bon point. 
Bon, voila, Napoleon, c'est vous, 
les Anglais et les Prussiens, c'est 
I'autre, chacun est dans son cojn 
et essaie de detruire I'ennemi. 
Comme precis* de maniere tr&s 
precise et explicite quelques 
lignes plus haut, Waterloo est un 
Wargame tout en basic, ce qui 
n'est pas a I'honneur des pro- 
grammers de Chez Lothlorien. 
Vous savez comment je m'en suis 
apergu ? Tout simplement en fai- 
sant une erreur pas prevue du 
tout : au moment oil le jeu m'a 
demands a quel niveau de diffi- 




culte je desirais jouer, j'ai repondu 
"Q" au lieu de "1" (vue la proxi- 
mite des touches sur un clavier 
QWERTY, I'erreur est humaine- 
ment pardonnable). Et j'ai eu quoi, 
a I'ecran ? Un superbe scrolling 
de deux lignes avec le non moins 
superbe message "Redo from 
start". Meme erreur (volontaire, 
cette fois) un peu plus loin dans le 
jeu, meme reponse si jolie a nos 
petits yeux ebahis. 
Ceci dit, le reste du jeu est d'un 
niveau acceptable pour le debu- 
tant, nul pour le joueur confirme. 
Les graphiques ne sont pas beaux 
du tout, car trop stylises. La sono- 
risation laisse a desirer, et se le fait 
(desirer). 

Bref, un coup dans I'eau dont on 
se serait passe sans probleme. 
Waterloo de M. C. Lothlorien 
pour Amstrad. 



MAIS QU'EST-CE 
QU'ON VA DIRE ? 



Je sais pas trop ce que je 
vais bien pouvoir vous 
raconter sur ce logiciel. 
Moi-m6me personnellement tout 
seul, je le trouve bien. Le pro- 
bleme, c'est que j'ai un copain 
mais neanmoins ami qui ne I'aime 
pas du tout. En temps normal, je 
me foutrais de son avis comme de 
I'an 40, seulement voila, ses argu- 
ments sont tout a fait valables. 
Lui, il a des prejuges sur les softs 
educatifs. On se refait pas, il est 
comme ga, on n'y peut rien. Sur- 
tout a son age. Moi, je pense que 
si un didacticiel est bien realise, et 
si il presente un certain interet. 
ben ii a droit a nos eloges. 
Lui, il m'avance que de nos jours, 
les monies se foutent complete- 
ment des educatifs, que ga les 
barbe a un point qu'il est impos- 
sible d'imaginer, et qu'ils preferent 
aller se tabasser en jouant a "Gol- 
dorack", "Dorothea et Jacky" ou 
"Chirac et Mitterrand". Moi, au 
contraire, je pense qu'ils ont soif 
d'apprendre. 

Bon. Ce qui nous oppose, c'est La 
botte a puces. Ce logiciel est des- 
tine a apprendre aux gosses, ages 
de 9 ans et plus, les circuits logi- 
ques. II est vrai que je connais pas 
beaucoup d'enfants qui soient 
interesses par ga, mais enfin bon, 
le logiciel etant bien realise au 
point de vue technique, on ne peut 
pas le descendre comme on en a 
I'habitude. Le gamin assoiffe de 
connaissances nouvelles a le 
choix entre apprendre a se servir 
du logiciel, sans etre oblige de lire 
la doc (c'est deja un bon point), a 
reconnaitre tous les elements d'un 
circuit logique (cables, capteurs, 
separateurs, timbres...), et bien 
sur a construire ses propres 
machines. Chaque section est en 
fait une version d'un seul et meme 
jeu ou il deplace un petit carre 
orange, et lui fait faire plein de 
choses qu'il serait trop long de 
decrire. On regrettera seulement 
que les programmeurs en soient 
restes aux touches I, J, K et M 



pour le deplacement : joystick ou 
souris conseilles. 
Comme mentionne precedem- 
ment, le soft est bien realise, et 
presente cet aspect attirant (parce 
qu'il est joli) qui fait tant defaut aux 
autres didacticiels. Si j'avais ete 
tout seul et si j'avais eu a le noter, 
je lui aurais donne une bonne 
appreciation. Le malheur, c'est 
que mon copain dont je vous ai 
parle tout a I'heure n'est pas du 
tout de mon avis, mais alors la pas 
du tout. II trouve comme moi la 
realisation honnete, mais ne voit 
pas I'interet d'un tel logiciel. Alors 
je me degage de toute responsa- 
bilite, ce sera a vous de voir. 
Quoi qu'il en soit, nous nous 
accordons a dire que neuf ans 
pour ce logiciel, c'est jeune; le bon 
age pour y jouer se situe dans une 
fourchette de 1 1 a 15 ans (mais la, 
I'utilisateur se sent frustre par les 
textes qui sont du genre "pour te 
deplacer, fais ceci, fais cela" ou 
"appuie sur ESC si tu veux quit- 
ter le programme", bref, des tex- 
tes qui s'adressent aux plus 
petits). 



Company 



LABOfTEAPUCES 

DECOL'VERTE DBS CIRCUrTS LOGIQUES 




La bolte a Puces, decouverte 
des circuits logiques de The lear- 
ning Company (traduit et distribue 
en France par Vifi-Nathan) pour 
Apple II (toute la serie). 



LES FORMOSES 
AVENTURES 



Que je vous dise un true, 
comme ga, pour faire pas- 
ser le temps. C'est I'his- 
toire d'un mec qui est critique de 
logiciels dans un canard d'infor- 
matique anglais. Mais attention, 
pas n'importe quels logiciels, hein, 
seulement ceux d'aventures. Et 
puis il aime tenement ga qu'il 
decide de faire une compilation 
avec seulement des jeux d'aven- 
tures, ceux qu'il considere comme 
etant les meilleurs. Malheureuse- 
ment, les meilleurs, ils sont pas 
legion. Alors il decide qu'il sortira 
quand meme sa compilation (sur- 
tout qu'il avait deja signe le cen- 
tra! avec un editeur), rveme si les 
jeux, ben ce sont plus les meil- 
leurs. Du coup, il en prend quatre 
qu'il trouve on ne sait oil, il les fout 
sur la meme cassette, il se creuse 
la tete pour trouver un titre genial 
pour sa compilation et au bout de 
trois semaines de cogitations 
intenses il trouve enfin celui de 
"Fourmost Adventures", et il est 
bien content, il peut retourner se 
reposer sous le smog (ou le fog, 
c'est pareil) londonien. 
Ce type, il s'appelle Tony Bridge, 
et les quatre softs qu'il propose 
sont Ring of Darkness, The 
Mural, Galaxias et Mlcroman. Le 
premier, tout le monde connatt, on 
va pas s'eterniser dessus. On dira 
seulement que c'est le meilleur de 
la cassette, malgre une intrigue 
qui casse pas des briques; le gra- 
pheme est plutot bien, et I'analy- 
seur de syntaxe assez baleze. 
Pour le second, j'hesite. De deux 
choses I'une : ou il est nul, parce 
que le scenario est bateau, ou il 
est pas mal parce que le scenario 
est vachement drole; je pr6fere 
que vous jugiez par vous-meme : 
vous vous promenez dans la rue, 
quand soudain deux hommes se 
pretendant d'une commission de 
censure quelconque vous enga- 
gent pour repeindre un mur recon- 
vert d'obscenites. Je sais pas trop 
ce qu'il faut en penser, moi, a part 
le fait que c'est vraiment original. 
Enfin, le reste du jeu est mauvais, 
I'analyseur syntaxique ne faisant 
pas le poids. 

Passons au troisieme de ces mes- 
sieurs. Galaxias est I'ceuvre d'un 
denomme Fergus McNeil. Rien 
que quand on voit son nom, on 
comprend qu'il ait autant 
d'humour, ce bonhomme (il avait 
deja pondu deux parodies de jeux 
celebres, Bored of the Rings et 



Robin of Sherlock (ga, c'est les 
titres des parodies, pas ceux des 
jeux celebres)). Realise avec "The 
Quill", vous ne vous en sortirez 
pas si vous ne possedez pas une 
bonne dose d'humour anglais a 
toute epreuve. Seul regret a for- 
muler : les graphismes ne sont 
pas a la hauteur de leurs 
pretentions. 

Enfin, pour finir et parce qu'on a 
pas que ga a faire, voici le dernier 
de ces compiles. Vous etes le pro- 
fesseur Richard, et vous recevez 
une forte dose de rayons Gamma 
(ceux qui lavent plus blanc). Voire 
seul espoir de survie est de con- 
tacter votre collegue et confrere 
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mais neanmoins ami, le docteur X 
(il a pas de nom, faut bien que je 
lui en donne un). Mais, comme par 
hasard, son laboratoire est pro- 
tege par un ordinateur (le COM-2), 
dont le but est d'eliminer tout 
intrus. Comble de malheur, vous 
allez devoir faire le chemin a pied, 
vu que votre voiture s'est ecrasee 
en plein contre le seul arbre du 
desert que vous traversiez. Ne 
cherchez pas d'analyseur syntaxi- 
que, y en a pas. Vous n'aurez droit 
en tout et pout tout qu'a une imi- 
tation de jeu d'aventures... 
Deux jeux sur quatre, ga fait une 
moyenne de 50% d'amusements 
et d'aventures. On commence a 
avoir I'habitude, avec les 
compilations. 

Fourmost Adventures de Global 
pour Amstrad. 



RIEN A FOUTRE 



Vous voulez acheter un 
C128? Eh bien Commo- 
dore a le plaisir et I'avan 
tage de vous off rir deux logiciel en 
prime, gratuitement et absolument 
sans augmentation de prix. Ces 
deux programmes que vous aurez 
la joie et I'honneur d'obtenir de la 
genereuse main de Commodore 
sont Super Jane de Arktronics (un 
logiciel integre, qui permet de faire 
plein de trues, dans le style Apple- 
works), et Tap 128 de Ordinateur 
Express (qui vous permettral 
d'apprendre a taper sur le clavier 
de votre C128). Ceci dit, je crois 
bien que je m'en fout complete- 
ment, et vous avouerez que c'est 
dingue de voir ce que les brade- 
merde trouvent comme trues pour 
refourguer leurs babasses. Au fait, 




monsieur Commodore, tu pourrais 
pas essayer de trouver un true 
pour rendre le 1571 vraiment com- 
patible 1541 ? 



DELIRIUM-POCKETUS 



Sharp continue ses delirium- 
pocketus-tresminces : cette 
fois ils sortent un super PC 
1500, le PC 1600. En version de 
base, vous ecopez de 96 Ko de 
Rom plus 16 Ko de Ram extensi- 



tres etendu : il integre en effet la 
gestion des entrees-sorties et de 
I'intertace de communication, 
mais le plus interessant. c'est |le 
DOS que contient ce basic. DOS, 
y aurait-il des disquettes pour ce 







ble a 80 Ko et en prime un ecran 
de 4 lignes de 26 caracteres, une 
RS 232 et une interface analogi- 
que. La bete contient deux micro- 
processeurs, un LH 5803 (cousin 
du LH 5801 du PC 1500) et un 
compatible Z80, le tout s'eclate 
joyeusement grace a deux basic 
integres Le premier basic est 
compatible PC 1500, le second est 



pocket ? Oui, il y en a I Et c'est le 
premier pocket qui y a droit. C'est 
des ODD, e'est-a-dire des disquet- 
tes de 2,8 pouces, et vous avez 
droit a 64 Ko par face. Tout ga 
c'est tres bien, mais (c'est con, y 
a toujours un mais) les prix sont 
un peu 6lev6s : le PC coute 4500 
FF et le lecteur est a 3000 FF. En 
conclusion : c'est un SCANDALE ! 



LA SUITE 
DU PEPLUM 



Le probleme des peplums 
quand ils passent a la tele, 
c'est qu'ils sont souvent a 
suivre parce qu'ils sont trop longs. 
Micro Application, c'est un peu ga. 
Au cas ou vous ne I'auriez pas 
devine, je parle des bouquins con- 
cernant le ST qui viennent de sortir 
chez eux et qui se sont, dieu sait, 
si longtemps faits attendre 
Done, je me tate Les livres sortis , 
jusqu'a maintenant chez eux sont ( 
partages en deux categories, la ' 
premiere et la deuxieme. La pre- 
miere c'est celle des bidouilleurs, 
celle des programmeurs d'enfer. 
Elle englobe "La Bible du ST", 
"Le Livre du GEM", etc... La 
deuxieme categoric concerne ies 
debutants et est largement plus 
importante que la deuxieme. Et, 
pour ne rien vous cacher, c'est 
celle-ci qui m'ennuie. En effet, un | 
exemple au hasard, le basic fourni 
avec le ST est totalement, farou- 
chement inutilisable. Done, a partir 
de la, faire un livre sur des appli- 
cations en basic est un non-sens 
en soi. 

D'autre part, le vrai debutant, par 
quoi doit-il commencer s'il sup- 



prime le basic ? Le logo ? Allons, 
soyons serieux I Le C pyut-dtre. 
Pas vraiment genial pour ddbuter. 
Alors quoi ? Ben, le basic. Malgre 
tout ce qu'on peut lui reprocher, 
le basic reste le seul langage 
accessible bien qu'hyper chiant 
sur cette machine. 

f>0irJTS £T % 8A75 
MOM |r!£COI2D! 



(NDLA : je vous promets, je ne I'ai 
pas fait expres. Promis). Les 75 
premieres pages du bouquin sont 
pompees betement dans le 
manuel de la becane, ce qui n'est 
pas des plus subtils de la part des 
auteurs. Suit un chapitre sur le 
basic qui n'est ni plus ni moins 
qu'une initiation tres tres I6gere, 
puis la meme chose en logo et 
finalement un cours d'informati- 
que general rapproche a I 'Atari 
Conclusion, sans interet, passons, 
a moins que vous n'ayez vraiment 
jamais louche a un micro et que 
vous soyez plus ou moins 
demeure, bien sur. 




Premier livre, done, "Bien debu- 
ter avec votre Atari 520STF et 
1040 STF ". Tout un programme 



"Peeks et Pokes de I'Atari ST" 
vient en renfort du premier avec 
quelques bidouilles sympathiques, 



malheureusement toujours acces- 
sibles uniquement par le basic. 
Pour 129 francs, vous pourrez 
vous debrouiller entre les poin- 
teurs et les adresses miracles. Le 
programmeur en assembleur trou- 
vera quelques bidouilles sympa et 
le basiqueux s'eclatera quelque 
peu. Cedes, bon nombre de pages 
pourraient etre arrachees car sans 
aucun interfit comme les defini- 
tions des langages par exemple 
que Ton retrouve systematique- 
ment sur tous les bouquins du ST. 
"Trues et Astuces" est un recueil 
de cons plans divers toujours pour 
ST. On a le plaisir de voir se 
cotoyer du C, du basic et de 
I'assembleur dans le meme bou- 
quin, ce qui est une bonne chose. 
Vous trouverez par exemple une 
explication succincte concernant 
le programme Ressource Cons- 
truction Set permettant de cons- 
truire les arbres de communication 
entre le GEM et I'utilisateur 
(menus deroulants, fenStres 
diverses). 

Vous y trouverez egalement un 
Ram disk, un spooler d'impri- 
mante et d'autres petits gadgets 
du meme style. Pas mal du tout en 
fait mais toujours un peu cher pour 
ce qu'on en attend : 149 francs. 
Le probleme reste le meme avec 
les bouquins de Micro Applica- 
tion : il faudrait prendre la meil- 
leure partie de chaque et faire un 
seul livre a un prix raisonnable ! 
Drole d'idee, non ? 
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C'est nouveau, pa 
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CHARLOTSAU PARQUET: 
LA SUITE 



Rappelez-vous de cet article 
paru dans le numero 113 
intitule "Lbs Chariots au 
Parquet". Ca causait d'un proces 
instaure entre la Secretairerie et 
IBM France, societe bien connue. 
Ca y est ? Ca vous revient ? La 
Secretairerie se permettait de ven- 
dre du materiel IBM au detail alors 
qu'elle ne disposait pas de I'agre- 
ment du Geant Bleu. Done, ga 
parait bien naturel, le geant en 
question s'est precipite sur la proie 
qui se donnait a lui et I'a assignee 
en refere (une espece de juge- 
ment ultra-rapide). La Secretaire- 
rie en profita pour contester ledit 
contrat, apres quoi le tribunal des 
referes se jugea incompetent et 
renvoya I'affaire devant le Tribu- 
nal de Commerce. Voila les faits. 
Qu'y a-t-il de nouveau ? Le juge- 
ment vient d'etre donne. Donne ? 
Oui, donne. Voici un resume de la 
conclusion pour assouvir votre soif 
de savoir. En gros, la Secretaire- 
rie est deboutee en ce qui con- 
cerne la saisie de la Cour Euro- 
peenne et de la Commission de la 
Concurrence a propos des con- 
trats IBM. Ensuite, le Tribunal 
interdit la Secretairerie de propo- 
ser a la vente ou a la location 
n'importe quel ordinateur person- 
nel IBM, lui interdit toute publicity 
ayant rapport avec les micros IBM, 
ordonne la saisie des stocks de ce 
materiel et condamne la boite a 
verser 1 million de francs en dom- 
mages et interets. Bon Vous avez 
bien lu. En principe, la Secretai- 
rerie est dans de tres mauvais 
draps et IBM a gagne la passe. 
Attendez un peu. Le probleme est 
plus complique qu'il n'y paraTt. En 
effet, comme nous le disions au 
mois de decembre, le c6te comi- 
que de I'affaire etait que la Secre- 
tairerie (c'est toujours aussi chiant 
a prononcer) avait ete fournie en 
materiel IBM par une serie de 
revendeurs agrees par le geant. 
Done, ces derniers, si le jugement 
etait negatif pour la Secretairerie, 
devaient en principe se prendre 
les foudres du geant pour leur 
mauvaise action. Jetons un ceil sur 
ces fameux distributeurs : Micro- 
world, ICS, Nasa, Sligos, Promo- 
data, Agena et Locafrance. 



A la suite du jugement, nous 
avons bien sur contacte quelques- 
unes de ces entreprises. Et 
qu'avons nous constate ? Hein ? 
Je vous le donne en mille ! Loca- 
france est une societe qui gere 
Promodata qui elle-meme gere 
Agena qui a ete cree par... La 
Secretairerie. Ah bon. Tiens. Coup 
de telephone a Agena : on nous 
assure d'"excellents rapports 
avec IBM", qu'il n'y a "aucune 
mise en cause de leur societe 
dans le jugement", que d'apres 



IBM ne I'a toujours pas signifie. 
Qu'est-ce que ga veut dire ? Eh 
bien la sentence ne peut pas etre 
executee jusqu'a ce que le juge- 
ment soit signifie Pourquoi IBM 
attend-il pour signifier, me direz- 
vous ? Parce que s'il le fait, il se 
doit, comme c'est ecrit dans le 
jugement, de sanctionner les four- 
nisseurs de la Secretairerie ("II est 
certain qu'lBM France se discre- 
diterait (...) si elle ne sanctionnait 
pas les distributeurs agrees, aussi 
importants soient-ils, qui ont mani- 
festement viole leur engagement 
contractuel...") I Or, quelle est la 
sanction type : le desagrement. 
Vous voyez un peu le tableau : si 
IBM coule la Secretairerie en signi- 
fiant le jugement, les 7 societes 
qui I'ont fournie perdent leur agre- 
ment et IBM perd de gros contrats. 
Si il ne signifie pas le jugement, la 



"~L 







eux, IBM n'aurait jamais eu reten- 
tion de desagrementer Agena. La 
conversation s'est terminee par 
I'assurance que si quelqu'un les 
mettait en cause, la reaction serait 
immediate. Dans le meme temps, 
on apprenait que Locafrance, 
Agena et Promodata sont trois des 
plus gros revendeurs IBM. On 
comprend pourquoi le bon ton est 
de rigueur. 

Du cote de la Secretairerie, on fait 
des commentaires. Et on a de 
quoi. En effet, on s'apergoit que 
malgre que le jugement ait ete 
donne depuis plus de 10 jours, 



vente de materiel par des non- 
agrees sera comme encouragee 
et I'image d'IBM s'en prendra un 
sacre coup. Comment IBM peut-il 
s'en sortir ? C'est simple : laisser 
courir I'affaire puis, le jour venu, 
quand tout le monde aura oublie 
I'histoire, IBM reglera son compte 
avec la Secretairerie et ne prendra 
pas de sanction vis-a-vis de ses 
ex-fournisseurs. Cela pourra etre 
dans un an comme dans dix, mais, 
comme dans la loi de la Mafia, ils 
se retrouveront. 

Et si IBM ne sanctionnait pas les 
distributeurs fautifs en pretextant 



un motif quelconque ? La Secre- 
tairerie plaiderait en appel (ce 
qu'elle ne peut faire qu'une fois le 
jugement signifie) qu'lBM lui en 
veut personnellement et que done 
elle n'est pas a proprement parler 
coupable I 

Mais, me direz-vous, une chose 
etrange persiste. Pourquoi la 
Secretairerie n'a-t-elle pas fait la 
demande d'agrement et s'est con- 
tentee de contester le contrat sans 
meme y avoir goute ? La. les 
points de vue divergent. D'apres 
la Secretairerie, IBM lui aurait 
demande, en echange d'un agre- 
ment ou du moins, d'une 
demande d'agrement, de denon- 
cer les fournisseurs du materiel 
qui lui avait ete fourni, ce a quoi 
la Secretairerie se serait bien sur 
toujours refusee. Tout ceci ayant 
ete formule verbalement, les cho- 
ses restent on ne peut plus floues. 
Toujours est-il que c'est une grave 
erreur de la part de la Secretaire- 
rie de n'avoir pas demande cet 
agrement : quand on veut jouer 
avec la loi, on se demerde pour la 
connaitre. 

Mais, on peut etre sur que si IBM 
fait trainer la signification du juge- 
ment, la Secretairerie se depe- 
chera de demander I'agrement qui 
devra (IBM s'y est engage dans 
les textes du contrat) etre accepte 
puisque, de toute evidence, toutes 
les conditions sont remplies par la 
Secretairerie. 

Resultat de tout ga : une fois de 
plus, un paquet de vase bien 
ennuyeux pour certains vient 
d'etre souleve par cette affaire. 
IBM France devra prendre une 
decision avant qu'lBM Europe ne 
trouve le jeu un peu trap amer. Les 
petites magouilles et autres 
"coups fourres" remonteront tot 
ou tard a la surface. 
Pour finir, une anecdote : des 
accords seraient en train de se 
passer sous la table entre la 
Secretairerie et IBM France. 
D'apres un espion sur les lieux du 
combat, la Secretairerie accepte- 
rait de ne pas faire appel et de 
payer le million demande a condi- 
tion que la moitie de la somme 
aille a une organisation humani- 
taire et que la boite obtienne un 
agrement avec amenagement ! 
Apres tout, pourquoi pas. Les 
dons a des ceuvres sont deducti- 
bles des imp6ts... Y en a qui ne 
perdent pas le nord ! 
La suite de cette affaire vous sera 
livree au fur et a mesure qu'elle 
nous arrivera. . . lechez-vous d'ores 
et deja les babines I 



ET CA CONTINUE 

ENCORE ET ENCORE... 



Bon, je previens tout de 
suite pour eviter d'even- 
tuelles crises cardiaques 
aupres de.nos jeunes lecteurs : je 
ne vais pas etre gentil du tout dans 
cet article, alors allez lire Mini-Mire 
ou le cours d'assembleur du ZX 
81 , ga vaudra mieux pour vous, et 
que ceux qui ont le courage de 
rester s'attendent au pire. 
Les raisons (et non pas les raisins) 
de ma colere, je ne vous les 
cacherai pas plus longtemps, vous 
avez les photos dissimulees quel- 
que part par la, avec le titre ecrit 
dessus en gros, mais que je vous 
rappelle quand meme parce qu'il 
le faut bien : Mathematiques Col- 
lege et France-Europe. 

Le premier est, comme son nom 
I'indique, un logiciel de maths, qui 
en fait en regroupe trois : Calculs 
Numeriques, Demonstration de 
Geometrie et Equations/Inequa- 
tions. Les litres sont assez par- 
lants par eux-memes, je vais pas 
vous dire quelle est I'essence 
meme de ces softs. Sachez seu- 
lement qu'ils sont tous les trois 
nuls, et s'adressent soit aux moins 
de trois mois, soit aux debiles 
mentaux, ce qui revient au meme. 
Non, franchement, je vois tres mal 
un gosse s'amuser avec ga, tant 
leur aspect est rebarbatif et leur 
realisation mal faite. On notera 
seulement que chacun de ces trois 
logiciels avait deja ete edite par ce 
cher monsieur Vifi n'a pas juge 
utile de changer la doc fournie 



MATHEMATIQUE5 
COLLEGE 




avec. 

On oublie les maths, et on passe 
a la geographie. c'est un petit peu 
meilleur que I'autre dont j'ai deja 
oublie de me souvenir que je 
devais me rappeler le nom, mais 
ga casse toujours pas des briques 
La encore, on a deux softs deja 
edites pour I'autre serie Thomson 
regroupes sur une seule et meme 
disquette, j'ai nomme Carte de 
France et Carte d'Europe (on 
remarquera au passage I'origina- 
lite des titres de Vifi). Le premier 
a deja ete decrit dans nos colon- 
nes, on y reviendra done pas, 
reportez-vous a un certain article 
intitule "Jesuisbleca par Vifi". Le 
second est le meme que le pre- 
mier, etendu a toute I'Eurape, 
mais exactement le meme, hein, 



pas seulement une pale imitation, 
hein, on y retrouve toujours les 
memes defauts, hein, c'est pas de 
la copie hasardeuse, e'etait pre- 
medite, hein. Les programmers 
n'ont toujours pas compris que 
quand un m6me repond "Grande- 
Bretagne" au lieu d'"Angleterre" 
ou le contraire, le soft devrait 
repondre que la reponse est 
bonne au lieu de jouer (mal) la 
marche funebre, et de se fendre 
la gueule comme un con qu'il est 
d'ailleurs. 

Ok, je vais essayer d'etre gentil : 
la carte de L'Europe, elle est bien 
dessinee, et puis voila, j'ai fini 
d'etre gentil. 

Voila deux logiciels qu'il ne faut 
pas acheter, a moins d'etre a court 
de disquettes vierges et/ou de 
papier hygienique. 



rtuutcc-tuROPe 




FRACIEL 

MET SON 

TURBO 



Fraciel vient de sortir deux 
Toolbox, sortes de modu- 
les qui s'utilisent en con- 
jonction avec le Turbo Pascal. 
L'un des deux est dedie a la ges- 
tion des fichiers, I'autre a la ges- 
tion des graphismes. Attention, les 
prix varient suivant que vous avez 
une adaptation, un ancien Turbo 
avec option graphique, un nou- 
veau avec option gestion, les deux 
sans option, bref, faites gaffe 
quand vous ferez le cheque. 
Autrement si vous avez un MSX 
ou un C128 vous pourrez connai- 
tre les joies de Turbo Pascal qui 
est desormais disponible sur ces 
deux becanes. 
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Mathematiques College et 
France-Europe de Vifi-Nathan 
pour Thomson T09. 




ECHEC : 
OUH ! LA FAUTE ! 



Pour tester un jeu d'Echecs 
(avec un "s"), il faut trou- 
ver quelqu'un qui joue bien 
aux echecs. Une fois la personne 
trouvee, il faut lui faire jouer une 
partie et puis une autre et encore 
une. Si elle les gagne toutes, et ce 
a plusieurs niveaux, c'est que le 
logiciel est faible, ou, en tous cas, 
pour debutants. Si elle en gagne 
la moitie, c'est que c'est un bon 
jeu et si elle perd tout, c'est que 
le soft est baleze. Apres ga, il faut 
regarder les temps de reflexion et 
la presentation generale ainsi que 
les bugs qu'il peut y avoir. 
C'est ce que nous avons fait avec 
"Echec" (sans "s") et voici le 
resultat : la presentation est 
bonne, juste bonne, le niveau de 
la becane est correct, plutot a 
reserver aux debutants qu'a des 
joueurs confirme. Quant aux 
temps de reflexion, ils sont 
moyens-bons. Restent les bugs 
qui eux sont assez genants. Par 
exemple, une partie ne se termine 
pas. Vous jouez, vous jouez, vous 
gagnez, e'est-a-dire que vous met- 
tez le roi adverse mat et, comme 
par hasard, la becane vous rede- 
mande de jouer alors qu'en prin- 



cipe, e'en est fait. C'est on ne peut 
plus genant, ne trouvez-vous 
pas ? 




Des petites options sympathiques 
sont proposees : sauver le jeu, 
changer les couleurs, inverser le 
jeu, editer une partie, etc... 
Bref, un bon jeu a reserver a des- 
debutants. i 

Echec de Loriciels pour MSX. I 



ADIEU SICOB 

DE MES BEAUX JOURS 



Tout le monde s'y attendait 
dans le microcosme ferme 
de la micro et de la bureau- 
tique frangaise : le Sicob de sep- 
tembre 87 sera deplace a Ville- 
pinte. Vous pourrez y aller, si vous 
le desirez, du 6 au 11 avril 1987, 



tique, par contre, disparait dans 

I'abominable gouffre de 

I'incomprehension. 

Les organisateurs prevoient une 

chute du nombre de visiteurs qui 

etait de plus de 300.000 habituel- 

lement, contrebalancee par une 
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tres exactement au Pare des 
Expositions Paris-Nord sur une 
superficie de 118.000 metres 
carres. 

Chose interessante, si le Sicob 
d'automne se deroule en avril, le 
Sicob de printemps aura-t-il lieu en 
octobre ? Mystere. Le Sicob bou- 



amelioration du professionnalisme 
de ceux qui viendront. 

Bref, le Sicob devient de moins en 
moins accessible aux amateurs 
que vous etes, ce qui est dom- 
mage. Rendez-vous I'annee pro- 
chaine pour en avoir le cceur net. 



CE N'EST RIEN 



Je prends le bouquin, 300 
grammes (a un chouia 
pres), je regarde la couver 
ture nulle, je tourne le bouquin et 
que vois-je ? "Vingt jeux passion- 
nants et prets a I'emploi" et puis 
la liste de ces 20 programmes et 
puis des conneries et puis encore 
des conneries. Ca commence tres 
mal, je sent que la moutarde me 
monte au nez et c'est mauvais 
parce que ga veut dire que je vais 
devenir mechant, mais je me 
calme vite et je peux done repren- 
dre la redaction de cet article. 
Bien, qu'y a-t'il dedans ? Rien, 
mais alors rien. C'est comme si 
I'avais 150 pages de rien dans les 
mains, ga fait une impression 
bizarre : avoir quelque chose dans 
les mains et savoir que ce n'est 
rien ! Ceci dit vous devez vous dire 
que ce livre ne doit pas couter 
grand chose, erreur, il coute 150 
balles et c'est cher pour rien. 
Encore deux ou trois petits trues : 
ce livre (qui nest rien) c'est "Jeux 



JEUX 

TOT/TO 
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prets a I'emploi pour TO7/70" et 
c'est de Edimicro (qui n'est pas 
grand-chose non plus). 
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C'est nouveau, ca vient de sortir 
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HISTOIRE BELGE 



Bonjour a nos amis beiges, et 
notamment a tous ceux qui 
habitent la region proche de 
Liege. Quel rapport avec la chou- 
croute ? Tres simple, je vais vous 
parler d'une boite de soft nommee 
Labochrome qui est situee a 
Liege. Done, j'en profite. La pro- 
chaine fois que je parlerai de Vifi, 
je dirai bonjour a nos amis 
mongols. 

Pour en revenir a nos amis de 
Labochrome, y a un petit malaise : 
ils ne sont pas tres brillants. Leur 
derniere production s'appelle 
Spectram et permet, en theorie, la 
traduction des programmes de 
Spectrum pour les CPC. Je vois 
deja votre tronche, oui ga existe, 
oui c'est commercialise, oui ga 
tourne Evidemment, faut pas 
rever : traduire un programme qui 
contient ne serait-ce qu'un 
gramme d'assembleur est impos- 
sible. Mais ce n'est pas le pro- 
bleme principal, ce qui cloche vrai- 
ment, c'est que ca traduit mal. 
J'explique : apres avoir charge le 
programme Spectrum, votre Ams- 
trad va le traduire afin qu'il 
devienne comprehensible par le 
basic Locomotive. Je vous ras- 
sure, les instructions du style Fot, 
Next, Print, Input et autres trues 
classiques ne posent pas de prrf- 
blemes. Par contre, les instruc- 
tions plus specifiques du genre 
Paper, Ink, Pen, Circle, Flash ne 
sont pas traduites. En clair, ga 




veut dire que vous devez sortir le 
listing du programme sur impri- 
mante afin de I'analyser et de faire 
les corrections necessaires a la 
bonne marche du programme sur 
Amstrad. Je peux vous dire que 
c'est un boulot tenement important 
que Ton se decourage tres vite. 
Pourquoi ? C'est tout b§te, non 
seulement vous devez vous colti- 
ner la reecriture de la moitie du 
programme, mais en plus il faut 
corriger les erreurs de syntaxe qui 
sont vraiment tres nombreuses. 
En clair ce programme ne peut 
pas servir a grand-chose, si ce 
n'est qu'a vous compliquer la vie 
(ce dont vous n'avez pas besoin) 
Spectram de Labochrome pour 
Amstrad. 



ETONNANT, NON ? 



Les programmers de Fire- 
bird sont malades. ils ont 
reussi I'exploit de faire deux 
programmes valables, si, fvous 
jure, c'est vrai. Ces logiciels sont 
Willow Pattern et Chikin Chase et 
ils tournent sur C64 et Spectrum. 
On se les regarde ? Ok, c'est parti. 
Dans le premier (Willow Pattern), 
vous aurez I'honneur et I'avantage 
de vous mettre a la place de 
Chang qui se demene pour trou- 
ver la princesse Koong-Shee qui 
est prisonniere et doit bientot 
epouser I'affreux Ta Jin. Mais elle 
n'aime pas cet horrible tyran, tout 
ce qu'elle veut c'est se marier 
avec le doux et valeureux Chang. 
Vous devrez done vous promener 




puis d'abord, je change d'avis, ce 
genre d'histoire n'est pas si cou- 
rant que ga. u ac-ora. 
Le second soft est une histoire de 
poulailler, et franchement ce pro- 
gramme est tres interessant car il 
permet de reveler au monde la 
dure vie de coq de basse-cour. Ne 
riez pas, vous ne pouvez pas ima- 
giner comme c'est complique, il 
faut trouver a manger, proteger sa 
maison, satisfaire madame, prote- 
ger ses ceufs de leurs ennemis. En 
fait, on comprend pourquoi les 
coqs se couchent t6t : leur vie est 
vraiment infernale. Et en plus si un 
herisson ou une souris arrive a 
manger un ceuf, madame se 
pointe et lui tout une torgnole 
d'enfer, non, c'est trop horrible, il 
faut que vous aidiez ce coq 
deborde. Si vous avez un Spec- 
trum, vous n'aurez pas de proble- 
mes, le programme n'est pas trop 
mal fait : y a des couleurs pas trop 
degueus, les petites bestioles sont 
bien dessinees et elles savent 
bouger, en plus vous pourrez vous 
emerveiller d'entendre cette 
douce melodie sortir des entrailles 
de votre Sinclair. Par contre, si 
vous avez un Commodore, n'y 
touchez pas : c'est nul, foireux, 
degueulasse. mal fait et c'est le 
plus bel exemple de I'adaptation 
foireuse. Le probleme dans tout 
ga, c'est que Firebird perd defini- 
tivement toutes ses chances d'etre 
elu editeur le plus ringard, ceci a 



(vous etes Chang ou pas ? Alors, 
quoi, faudrait voir a me lire plus 
attentivement !) dans les jardins 
de Ta Jin afin de trouver la prin- 
cesse en evitant les sbires assoif- 
fes de sang de ce dernier et il vous 
faudra utiliser toutes vos facultes 
afin de retrouver votre aimee. Evi- 
demment, comme vous n'etes 
jamais content, vous allez me 
dire : mais c'est tres courant, 
comme scenario. C'est vrai, ce 
genre d'histoire est tres courante 
mais la realisation est tres bien 
faite : les commandes precises ne 
font pas honte aux decors ni a 
I'animation, et pour la zizique, 
c'est comme le reste : tres hon- 
nete. Ceci dit, il faut savoir que la 
version Spectrum est meilleure 
que celle qui existe sur Commo- 
dore, bref, c'est un bon petit pro- 
gramme d'arcade bien foutu. Et 




cause de ces deux programmes. 
Willow Pattern et Chikin Chase 

de Firebird pour Spectrum et C 64. 



COMPATIBLE 
A PLEURER 



Ils sont deux cette semaine a 
nous exhiber leurs nouveaux 
compatibles. Le premier 
porte le doux nom de Cordata qui 
est une abreviation de Corona 
Data Systems. Les engins qu'ils 
nous proposent sont... comment 
dire... compatibles PC, oui, c'est 
le mot. Le PC-400 est un portable 
comprenant 512 Ko de Ram, un 
port serie et parallele, quatre slots, 

fa*. 
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Le reste de la gamme est encore 
plus cher et comprend des com- 
patibles AT. On note une impri- 
mante laser (LP-300, c'est son 
nom) qui frole les 35.000 balles. 
I.E.E.E presente aussi un portable 
dote de 256 Ko, deux drives de 
360 Ko, un port parallele, un port 
serie et un port joystick, un moni- 
teur ambre ou vert 9 pouces pour 
13.000 francs. 
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deux drives et un moniteur 
monochrome 9 pouces, le tout 
pour quelque 17.200 francs. La 
meme chose avec un seul drive et 
un disque dur 20 Mo avoisine les 
23.000 balles. 




La cuvee de compatible de cette 
semaine est bien chere. En quel- 
que sorte, on se demande si tou- 
tes ces bottes resisteraient a une 
baisse des tarifs IBM de 20%, par 
exemple... 



QUI C'EST QU'A FAIT 



*. *. 



Voila, on essaie d'etre gen- 
tils avec quelqu'un, et ga 
se retourne contre nous. 
Bougez pas, j'explique : nous 
avions recemment teste "la boite 
a puces", et on avait ete gentils en 
aliant chercher tout ce que ce soft 
avait dans les tripes (je sais pas 
pourquoi je dis qu'on avait ete 
gentils, puisque c'est toujours ce 
qu'on fait, mais enfin, bon, oubliez 
cette remarque et passez done 
plutot a la suite de cet article, 
e'est-a-dire des que j'aurai ferme 
cette parenthese, ce que je ne vais 
pas tarder a faire), on en avait fait 
une critique qui, quoique mitigee, 
etait bonne, et voila notre recom- 
pense : Ole. 

Dans ce jeu, vous vous mettez 
dans la peau d'un torero (et non 
pas un "toreador" comme on dit 
souvent a tort, merci I'HHHHebdo, 
continuez a nous donner notre 
legon de frangais quotidienne), et 
vous devez allez combattre le tau- 
reau dans I'arene. Et puis voila, 
c'est tout. 

Le graphisme est nul, la musique 
mal faite, I'animation des plus 
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mauvaises, bref, le jeu est tres, 
mais alors la tres tres tres, 
mauvais. 

La face A de la cassette contient 
la version MSX, qui est un tanti- 
net meilleure que la version Ams- 
trad, enregistree elle sur la 
seconde face. 

Et dire que ce logiciel a regu le 
"Tilt d'Or", la seule recompense 
donnee aux softs les plus nuls. 
OI6 de Vifi International pour MSX 
et Amstrad. 



ELECTION 



mon unanimite plus ma [J^i&CtyJ 0" PWA</' 
■ je decerne au Club 



Avoix 
Canon X-07 le prix du Club 
le plus dynamique de France. Si 
vous en trouvez un autre qui se 
decarcasse autant. prevenez-moi, 
que j'aille y adherer tout de suite. 
Ils sont au 1 , rue de I'Assemblee- 
Nationale a Versailles (78000), leur 
telephone : le (1) 39 53 64 73. lis 
s'assoient autour d'une grande 
table et discutent du Canon X-07. 
Ca dure des heures, I'atmosphere 
est enfumee, le ventilateur brasse 
les remugles lourds de sueur, la 
machine a cafe marche sans arret, 
bref, ils sont sympas et ils bossent. 




le 5 pouces 1 /4 amstrad : 
<:a continue 




Si je vous dis "Tran", ga 
vous dit quoi ? Pour moi, 
ga reveille d'antiques sou- 
venirs concernant Oric et le pre- 
mier drive 3 pouces qui sortit il y 
a de cela... oh ! longtemps. Eh 
bien Tran remet ga avec des 
superbes drives 5 pouces 1/4 pour 
Amstrad. L'engin est double face 
et muni d'un interrupteur a diode 
bicolore pour changer de face. Le 
tout est vendu 1 590 francs avec la 
disquette d'utilitaires habituelle. 
En vente dans toutes les bonnes 
boucheries, banc d'essai bientot. 



COUP DE POUCE 



Eh bien, chers telespecta- 
teurs, voici maintenant 
notre sequence "coup de 
pouce" qui recompense des 
entrepreneurs entreprenants, des 
gagneurs gagnants et des pro- 
grammers, euh... valables. La 
societe Biolog (que c'est des 
copains) vient de sortir un superbe 
logiciel sur Atari ST (equipe de dis-'- 
que dur). Le soft en question n'est 
rien d'autre qu'une gestion de 
cabinet medical. En jeu ? Non, 
non, en vrai. Disons que pour 
jouer, faut etre medecin, quoi. Et 
d'ailleurs, c'est pas un jeu du tout. 
C'est un vrai gestionnaire, comple- 
tement genial, avec des fenetres 
dans tous les coins, des ascen- 
ceurs, des menus, des ordonnan- 
ces, des machins et des trues, 
hr«f r'fiRt oupar. Vous vous en 
foutez, vous etes pas medecin ? 
Oui, je sais, mais nous en avons 
UN dans notre lectorat. Ca I'inte- 
ressera certainement. Done, cher 
medecin, tu es prevenu, c'est tres 
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bien, on peut tout faire, et puis 
voila. Biolog : 47 94 12 29. A 
noter : tous les programmers 
sont des vrais mSdecins, en 
blouse blanche et tout. 



EXCLUSIF : UN NOUVEL AMSTRAD 512 Ko ! 



Suite de la 

d^sormais quasiment trade 
marque, on voit tout d'un coup 
apparattre un cadre, avec en 
haut quatre mots : Desk, Install, 
Manage, Options. Tout en bas 
a gauche de I'ecran, une icone 
s'installe, avec un enorme 5 ins- 
crit dedans et un petit "inter- 
nal", indiquant que seul le drive 
interne est connecte. On n'a 
pas pu essayer avec un lecteur 
externe, on ne sait done pas si 
ceux-ci sont d6tect6s automati- 
quement ou pas. Probablement 
pas, car une option pour I'instal- 
lation des lecteurs externes est 
prevue. 

Bon. Vous avez done cet 6cran 
quasiment vide. Au milieu, une 
petite fleche semble vous solli- 
citer. Vous essayez les fleches 
du curseur... Ca marche ! Le 
joystick marche aussi, et le meil- 
leur : la souris aussi ! 
Ouaaaiiiiis, on a ga-gne ! 
Bon, inutile de finasser : c'est 
un Gem (2). Enfin, presque. 
C'en est pas vraiment un, on 
sait les problemes que Digital 
Research a eu avec Apple pour 
des questions de copyright, 
alors il semble qu'Amstrad aie 
decide de faire une copie assez 
semblable pour all^cher le 
client, et assez dissemblable 
pour eviter les proces. 

DONC 

Done, vous amenez cette fleche 
sur I'icone du bas, et vous cli- 
quez deux fois - si vous avez un 
joystick, vous appuyez deux fois 
sur fire, et si vous n'avez que le 
clavier, la touche Copy fera 
raffaire - aussitot, une fenetre 
s'ouvre, vous proposant 
d'autres icones representant les 
programmes. Vous vous dirigez 
sur la barre de menus : c'est le 
meme probleme que sur Atari, 



page 1 

il suffit de passer dessus pour 

Sue les menus se de>oulent. 
'est enervant, a la longue. Sur 
Macintosh, il faut appuyer, ca 
evite d'avoir des menus dans 
tous les coins quand on fait une 
manoeuvre trop brusque. 
Les menus, disais-ie : on peut 
installer un RamDisk (un disque 
virtuel en Ram, 100 fois plus 
rapide qu'une veritable dis- 
quette, mais plus risque : atten- 
tion aux pannes de courant !), 
transferer des fichiers, formater 
une disquette (sans passer par 
le CP/M), modifier I ordre des 
icones, changer les couleurs de 
l'6cran, bref, on peut tout faire. 
Seul probleme : la lenteur. Ceux 
qui ont ne serait-ce qu'approche 
de loin un Mac ou un ST ne 
pourront pas s'habituer a ce 
train d'escargot. C'est d'ailleurs 
probablement la raison pour 
laquelle ce systeme n'est pas 
propose a I'initialisation : il est 
cent fois plus rapide de passer 
du mode normal au mode 
Subsystem que I'inverse. 
Toujours pour eviter les proces, 
le look general differe : les pro- 
grammes sont indiques par un 
trait horizontal en bas de I icone, 
alors que c'est en haut sur le 
Gem. Le bouton de fermeture 
de la fenetre, au lieu d'etre un 
petit rond, ou un petit carre, ou 
quelque chose dans le style, 
devient ici "CI", pour Close (ter- 
mer). Le bouton de modification 
de taille, au lieu d'etre un rond 
inverse, ou n'importe quoi 
d'autre, est symbolise par 
"Mo", pour Move (deplacer). 
Par contre, comme dans le 
Gem, les "ascenceurs" (qui 
permettent de faire defiler les 
programmes dans la fenetre) 
disparaissent lorsqu'ils sont 
inutiles. 

Suite page 14 
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EXCLUSIF : 
UN NOUVEL AMSTRAD 512 Ko ! 

Suite de la page 13 

Bon, quoi d'autre ? Je vous ai 
caus6 de I'horloge en temps 
reel qui est en bas a droite ? 
Non ? Ben si, lisez la phrase 

Precedents, vous verrez. 
aire un aestionnaire de bureau 
avec un Z80, c'etait plutdt aven- 
tureux... Et comme il fallait s'y 
attendre, c'est lent et pas tres 
beau. Mais bon, c'est la mode 
des menus deroulants, des 
fenetres et des souris : Sugar, 
comme les copains, suit la 
mode. Point. 



des prises Midi. C'est des prises 
Midi, quoi, il faut un logiciel pour 
les g6rer et un (ou des) synthe- 
tiseurs pour mettre au bout. Si 
les petits cochons ne me man- 
gent pas, vous aurez droit a un 
article complet sur les prises 
Midi cet ete, alors je vais pas 
commencer maintenant a me 
decarcasser. 

Le prix. Je vous ai pas parle du 
prix ? Bougez pas, on va repa- 
rer ga tout de suite ! 

LE PRIX ! 

Allez, je vous fais pas languir : 
6490 balles pour la version cou- 




J'AI OUBLIE... 

J'ai note plein de trues sur mon 
carnet, bougez pas, je vous en 
cause tout de suite. D'abord, la 
compatibility ascendante est 
assuree a 1 00%. Tous les softs 
qui tournent sur les autres CPC 
tourneront sur celui-la. 
Ah oui, le CP/M. Vous vous rap-, 
pelez du probleme que posait le ■ 
CP/M en trois pouces ? Les pro- . 
grammes etaient la plupart du 
temps en 5 pouces, et il fallait 
les convertir, ce qui prenait du 
temps. Ben la, c'est resolu. Bru- 
talement, certes, mais resolu : 
vous mettez la disquette 5 pou- 
ces CP/M qui tourne habituelle- 
ment sur I'lBM de papa, et paf I 
Ca marche. Pour le coup, la 
logitheque gagne un pon millier 
de titres I i 

Je ne vous ai rien dit non plus 



leurs, 4990 pour la version 
monochrome. C'est-a-dire 500 
balles de plus que le 6128... 
C'est du suicide ou quoi ? Ceci 
dit, on ne sait pas si les autres 
modeles de la gamme baissent 
ou pas, ce qui entrerait assez 
dans la logique du pere Sugar. 

CONCLUJE 

Bon, ben c'est un nouvel Ams- 
trad, quoi. Un peu mieux que le 
precedent et un peu moins bien 
que le prochain. 



(2) Gem : Graphics Environ- 
ment Manager, c'est le gestion- 
naire de bureau de Digital 
Research, tres inspire du Finder 
d'Apple qui permet de gerer 
I'ordinateur grace aux ic6nes et 
a la souris. 
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DECOUVRIR 

sans acheter ! 



SOFTLAND a trouve ! 



EMPRUNTEZ les logiciels 

APPLE - MAC - C64/128 - AMSTRAD - 0RIC - SINCLAIR 



CFM - SOFTLAND 9, rue de Douai - 75009 PARIS 
Tel. : 48.74.05.20 + 

Pour chaque adhesion, 1 cadeau sur presentation de cette publicity t 
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MATEZ LE NOUVEAU 

i 



Suite de la page 1 



Je vous vois deja vous interroger 
a propos d'une hypothetique com- 
patibility. Sachez, bande de rep- 
tiles a ailerons que seule la caros- 
serie a change et que I'interieur de 
I'engin est exactement le meme 



trompez pas, c'est toujours une 

vieillerie. 

Le clavier a une frappe identique 

a celle d'un 128, car, comme vous 

avez du vous en rendre compte, 

I'aspect global est tres similaire. 



, H-iTnilTT 



-^ 



que celui de son predecesseur. 
Done, si je me fie a mon habituel 
sens de la deduction, tous les logi- 
ciels de I'ancetre tournent sans 
modification aucune sur le petit 
dernier. 

La gamme prend done ainsi un 
coup de jeune, mais ne vous y 



Le prix, quant a lui, devrait mon- 
ter de 500 francs par rapport a un 
64 actuel, c'est-a-dire qu'il devrait 
atteindre 2400 francs environ, 
selon la boutique. On attend tou- 
jours les explications de Commo- 
dore face a cette augmentation du 
prix... 



VOUS 
L'AVEZ 

RATE? 





NE PLEUREZ PLUS, 
nous l'avons reedite ! 

100 pages de programmes de course 

avec 6 cassettes de 25 programmes 

originaux. 

Le tout pour 100 francs, qui dit 

moins ? 

Bon de commande a decouper ou a recopier, 
HEBDOGICIEL, 24, rue Baron, 75017 Pari*. 



□ Je desire recevoir "Hebdogiciel Hors-Serie Amstrad 
accompagne de ses 6 cassettes de programmes. 

NOM : 

PRENOM : 

ADRESSE COMPLETE : 

Ci-joint mon reglement de 100 francs + 15 francs de participation 
aux frais de port et d'emballage, soit 115 francs. 

Cheque D. CCP D 





750 F 



POUR LES MEMBRES 
DU CLUB HEBDOGICIEL 



□ UNITECENTRALEZ80-A 

□ MEMOIRE 

- RAM 32K (BASIC-MSX) 

- RAM 64K + RAM VIDEO 16K 

D CABLE PERITEL FOURNI 

D EN CADEAU : 
XYZOLOG (K7) 



□ LIAISON X07-V20 



290 F 

POUR LES MEMBRES 
DU CLUB HEBDOGICIEL 



BON DE COMMANDE A ENVOYER A S.E.H.,160 rue Legendre, 75017 PARIS. 



CANON V-20: 950 F.D 
CANON V-20 + X740: 1.290 F. 
INTERFACE X -740 : 490 F.D 
LOGICIEL X07 COM : 337 F ~ 



PRIX SPECIAL CLUB : 750 F.D FRAIS DE PORT + 50F. 

PRIX SPECIAL CLUB : 990 F.D FRAIS DE PORT + 70F. 

PRIX SPECIAL CLUB : 290 F.D FRAIS DE PORT + 20F. 

PRIX SPECIAL CLUB : 235 F a FRAIS DE PORT + I5F. 



NOM : 






PRENDM 


ADRESSE: ... 












CODE POSTAL 
N° CARTE DU 


CLUB 

D Cheque 


bancaire D CCP 


V1LLE 


N° de telephone : 


Reglement joint : 





Apttffi 



V-20 



235 F 

POUR 
LES MEMBRES 

DU CLUB 
HEBDOGICIEL 

□ INTER- 
CONNECTION X07 

□ APPLICATION MSX 
POUR INTERFACE 

X740 



SSS|§r\ 990 F 



□ 1 CANON V-20 

D 1 INTERFACE X-740 POUR 
LIAISON X-07 V-20 



POUR 
LES MEMBRES 

DU CLUB 
HEBDOGICIEL 

DEN CADEAU XYZOLOG (K7) 
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Aujourdhui vendredi 6 juin 1986, la 
l i sur la copie privee, bloquee par 
lassemblee nationale, n'a toujours 
pas ete modifiee. 
Ues informations. 

Yannick Noah a, pour la cent- 
ireizieme fois au cours de cette 
semaine, declare forfait. Desormais, 
1 1 a decide de declarer forfait toutes 
les quinze minutes, au lieu des vingt 
minutes precedentes. Pourtant, la 
nouvelle rotule en Berylium aminci 
qui avait ete concue specialement 
pour lui par Philippe Chatrier, pre- 
sident de la federation de tennis, qui 
est present avec nous ce soir, 
comme sur tous les plateaux en 
direct oil il se demerde pour appa- 
raitre, fonctionnait bien. Cette fois- 
ci, c'est a cause de son petit doigt 
qui est malade qu'il a abandonni. 
Mors, Philippe Chatrier, que s'est- 
il passe ? 

- Eh bien, je pense que le petit Yan- 
nick etait stresse, il a fait au moins 
deux matches cette annee, c'est 
beaucoup trop pour lui. 

- Merci. Nous vous annoncerons les 
prochains forfaits de Yannick au 
cours de ce journal. Mais tout de 
suite, un reportage de Fernand Gon- 
calves sur Atlantis pour Amstrad. 
"E, d, prends bouteille, n, o, s, tire 
anneau, o, prends clef, prends fiole, 
e, n, o, n, ouvre bouteille, remplis 
bouteille, prends combinaison, 
enfile combinaison, s, o, prends cof- 
fret, ouvre coffret, pose coffret, 
prends or, e, e, e, s, m, o, ouvre 
fiole, verse fiole, pose fiole, d, e, 
prends radium, o, o, o, entre cite, 
pose clef, o, prends bague, enfile 
bague, e, e, n, n, prends corde, s, 
o, n, n, e, donne or, n, lance corde, 
m, o, introduire radium, n." 

- Nous passons maintenant a la 
suite de I'actualite, mais aupara- 
vant, une depeche qui vient de me 
parvenir : Yannick Noah vient de 
declarer forfait pour la cent- 
quatorzieme fois, a cause de son 
pied qui le gene. Done, voici un 
reportage de Hans Ulrick Hemoglo- 
bine Matrak sur les transferts de 
securite de cassette a cassette sur 
Amstrad 464. A vous, Hans. 
"Pour Dames : 

POKE &AC03, &AE : POKE &AC02, 

&45 : POKE &AC01 , &32 

LOAD "" 

SAVE "DAMES" 

Reset 

MEMORY 16383 

LOAD "", 16384 

SAVE "DAMES", B, 16384, 12000 

Pour Kong Strikes Back : 



Sur le programme principal : 

MEMORY 6911 

LOAD "", 6912 

SAVE "KONG2", B. 6912, 32768, 

16384 

Pour Dun Darach : 

MEMORY 5199 

LOAD "", 5200 

SAVE "DUN DARACH", B, 5200, 

7267, 5200 

OPENOUT "x" : MEMORY 2530 

LOAD "", 2538 

SAVE "DUNP", B, 2538, 38960 

Pour Pinball Wizard : 

MEMORY 7807 

LOAD "", 7808 

SAVE "PINBALL", B, 7808, 4383, 

7808 

MEMORY 12287 

LOAD "", 12288 

SAVE "WIZARD", B, 12288, 14335, 

20224 

Pour Mutant Monty : 

POKE &AC03, &AE : POKE &AC02, 

&45 : POKE &AC01 , &32 

LOAD "" 

SAVE "MUTANT MONTY" 

MEMORY 8191 

LOAD "", 8192 

SAVE "CODE", B, 8192, 35058 

Pour le Mystere de Kikekankoi : 

POKE &AC03, &AE : POKE &AC02, 

&45 : POKE &AC01 , &32 

LOAD "" 

SAVE "KIKEKANKOI" 

Reset 

MEMORY 32719 

LOAD "", 32720 

SAVE "K1", B, 32720, 4016 

Reset 

POKE &AC03, &AE : POKE &AC02, 

&45 : POKE &AC01 , &32 

LOAD "" 

SAVE "KIKEKANKOI" 

MEMORY 14581 

LOAD "", 14582 

SAVE "K2", B, 14582, 30000 

Pour Amelie Minuit, taper ce 

programme . 

10 MODE 0: FOR l = TO 15: 

READ A : INK I, A : NEXT I 

20 LOAD " IAMELIE.ECR", 49152 

30 RUN " IAMELIE1" 

40 DATA 0, 26, 19, 19, 15, 14, 11, 

2, 1, 9, 12, 24, 25, 7, 3, 

Et le sauver sous le nom "Amelie" 

Puis sauter le petit chargeur basic 

sur I'original et taper ce 

programme : 

10 MEMORY 2999 : LOAD " I", 

30000 

20 CALL 30000 



BIDOUILLE— 

GRENOUILLE 



30 WHILE INKEY$ = "" : WEND : 

SAVE "AMELIE.ECR", B, 49152, 

16384 

Apres avoir fait RUN, attendre que 

I'ecran soit charge, puis taper une 

touche pour le sauver a la suite du 

premier programme. Faire ensuite : 

POKE &AC03, &AE : POKE &AC02, 

&45 : POKE &AC01 , &32 

LOAD "" 

SAVE "AMELIE1" 

MEMORY 10234 
LOAD "", 10235 

SAVE "DOS.BIN", B, 10235, 32261 
Voila." 

Merci, eh bien nous passons a la 
suite. Philippe Chatrier, pendant 
que ce reportage passait, vous 
m'avez dit que vous aviez une infor- 
mation a communiquer a nos 
telespectateurs ? 

- Oui, je viens d'apprendre que 
Noah venait de declarer forfait pour 
la cent-quinzieme fois, a cause 
d'une sombre histoire de Panou- 
panou, mais j'ai pas tout compris. 

- Merci, Philippe. Voici, en exclusi- 
vity pour notre chaine, un document 
sur King Quest I. II est signe JF 
Tastard : 

"W, w, push rock, get dagger, s, e, 
s, get pebble (au bord de la riviere), 
n, w, n, n, climb tree, get egg, e, get 
carrot, n, speak elf (si celui-ci 
n'apparait pas, essayer plusieurs 
fois N puis S), s, e, e, n, get clover, 
n (traverser le pont), give egg, speak 
gnome, A (return, 3 fois), get key, 
s, s, w, w, w, unlock door, use key, 
open door (monter les escaliers), s, 
look hole (dans I'arbre), get sling, n, 
w, use the sling, get chest (a cote 
du geant), e, e (descendre les esca- 
liers et sortir de la grotte), e, n, get 
bowl, w, get walnut, open walnut, w, 
w, n (aller dans I'eau), fill bowl, n 
(entrer dans la maison), give bowl, 
get fiddle (sortir de la maison), n, w, 
look stump (un des deux), get 
pouch, open pouch, n, e, climb buc- 
ket, go water, dive (aller dans la 
fente a gauche en bas de I'ecran, 
s'approcher du dragon et se placer 
en face), throw dagger, get mirror 
(remonter a la surface, se placer 
sous le seau), climb rope, w, w, w 



(si la princesse n'apparait pas, faire 
plusieurs fois N puis S), n, e, e, n, 
e, open door, open cupboard, get 
cheese, get note (sur la table a cote 
du lit, puis sortir de la maison), s, w 
(sauter sur I'oiseau, si celui-ci 
n'apparait pas, faire plusieurs fois 
W et E), w, get mushroom, e (tom- 
ber dans le trou), s, w (s'approcher 
du rat), get cheese, open door, play 
fiddle, s (attendre la sortie du roi), 



frangais arrive a tenir ce rythme, il 
va remporter le prix de premier 
forfaiteur. 

Maintenant, voyons I'actualite poli- 
tique, avec une declaration de 
Hamster Jovial qui tenait un mee- 
ting a Precuvol-les-Andouillettes : 
"Pour recopier Karate de cassette 
a disquette sur Oric avec Sedoric, 
voici la marche a suivre : 
Sauter les deux premiers fichiers et 
charger le troisieme par un 
CLOAD"". 

Faire un reset sur le disque et taper 

CALL t 2748 puis ESAVE 

"IMAGE". 

Charger le quatrieme fichier par un 

CLOAD"", puis taper SAVE 

"CARACTERES", AJ(97FF, 



1~ 




get scepter, get shield, w, eat mush- 
room, w, s, s, e, e, s, s (traverser le 
pont), open door, n, w (s'approcher 
du trone), bow to king." 
Derniere minute : Yannick Noah 
vient de declarer forfait pour la cent- 
seizieme fois, a cause d'un sort que 
lui aurait jete un mechant sorcier. II 
est a note que c'est le quatrieme for- 
fait en moins de vingt minutes. Si le 



ED9C01. 

Charger le cinquieeme fichier par un 

CLOAD"", puis taper SAVE 

"KARATEG", A«4A37, E tt 8D04 

Sauter le sixieme fichier. Taper 

POKE i 500, 65 et charger le sep- 

tieme par un CLOAD"". 

Taper POKE t 500, puis effacer 

les lignes a 10 et taper : 

HIRES : POKE 618, 10 



I LOAD "IMAGE" : LOAD "KARA- 
TEG" : LOAD "CARACTERES" : 
LOAD "MULTIPLEX" 
2QUIT:FORI = 0TO 33 : POKE 
t 48E + 1, PEEK ( It 9000 + 1) : NEXT 
I 

Taper SAVE "KARATE", AUTO 

Taper NEW puis QUIT puis : 

10 REM 

20 CLOAD "" : CLOAD "" : CLOAD 

"" : CLOAD "" : CLOAD "" 

POKE 8 500, 65 

Rembobiner la bande, sauter les 

deux premiers fichiers, faire GOTO 

20. Lorsque le chargement se ter- 

mine, taper : 

POKE t 500, 

FOR l=0 TO H 33: POKE 

8 9000 + I, PEEK {<) 48E + I) : 

NEXT I 

Faire un reset sur le disque et taper 

SAVE "MULTIPLEX", A 9000, 

E g 9033 

II ne reste plus qu'a taper KARATE 
pour jouer." 

Une information vient de nous par- 
venir sur Yannick Noah, mais nous 
aurons plus de precisions dans un 
instant. En attendant, voici la repli- 
que de Jean-Francois Frin : 
"Pour avoir une copie anti-cafe de 
Tau Ceti sur Amstrad 464, copier la 
premiere partie par POKE &AC03 
machin true, LOAD bidule et SAVE 
chose. Puis, faire : 
OPENOUT "d" : MEMORY 1529 : 
CLOSEOUT : LOAD "", 2000 
SAVE "TITLE", B, 2000, 4708 
OPENOUT "d" : MEMORY 1529 : 
CLOSEOUT : LOAD "",1530 
SAVE "PART1", B, 1530, 33808 
OPENOUT "d" : MEMORY 1529 : 
CLOSEOUT : LOAD "", 35328 
SAVE "PART2", B, 35328, 7185 
C'est tout." 

Voila, I'information dont je vous par- 
lais est maintenant plus precise : 
Yannick Noah vient de declarer for- 
fait pour la cent-dix-septieme fois. 
Cette fois-ci, c'est a cause dune 
souris qui aurait traverse le court et 
qui I'aurait effraye. Philippe Cha- 
trier, vous avez autre chose a 
ajouter ? 

- Non, pas specialement, j'aimerais 
bien que CMC me donne son 
adresse pour que je puisse le con- 
tacter, mais c'est tout. 

- Sur Noah ? 

- Oh, eh bien je pense qu'il est capa- 
ble de declarer forfait encore une 
bonne cinquantaine de fois d'ici la 
fin de la semaine. 

- Tout n'est pas perdu, done. Votre 
prochain rendez-vous avec 
I'information... 



DEULIGNES D'EXCUSES 

Amis du jour, je vous salue. Cette semaine, de dois pie de m'ecrire sur ma BAL du serveur d'Hebogiciel 

me faire pardonner par les commodoristes du numero (L-PIERRE sur HG au (1) 36 15 91 77) pour me dire 

137, puisque seules les lignes 10 et 20 etaient a taper, vos problemes concernant les deulignes, ou comme 

mais ga les plus malins d'entre eux I'avaient compris. celle qu'a eu Vincent Guesdon de faire dessiner a son 

Avez-vous des idees bizarres, comme celle par exem- Spectrum une banane de I'espace ? 




Avez-vous des idees bizarres, comme celle par exem- 
ple de m'ecrire sur ma BAL du serveur d'Hebogiciel 
(L-PIERRE sur HG au (1) 36 15 91 77) pour me dire 
vos problemes concernant les deulignes, ou comme 
celle qu'a eu Vincent Guesdon de faire dessiner a son 
Spectrum une banane de I'espace ? 

Listing Spectrum 



.1 BORDER 0: PRPER 0: CLS : PR 
INT AT 2 ,8; "pressez space": RAND- 
OMIZE USR 1331: INK 7: CLS : FOR 
f=l TO 100: PLOT INT (RNDiSSS), 
INT !RND*17S> : NEXT I 

i Itlt i- PRINT hT 4-1,0, — 

FO 



Listing Amstrad 

10 MEMORY 41999:P0R x=42000 TO 420 
43iREAD a*:POKE x .VAL<"*"ta*> iNEXT 

; P K E I A C 4 , a C 3 i P 0KE X A C 5 , & 1 z PO K 

E 8.ACOE,XA4 

20 DATA CI sC'l ,E5j2B,2B,2Bj2e,2B,7E 
, FE ; 9F ,28,10; FE , AO , C2 , 97 , CA , 23 , 23 , 
CD , 3 'I , CE , CD i 3A , E7 , C 1 , 2B , C9 , 23 , 23 , C 
D ,91, CE , CD , 9A , E7 , EB , E 1 , CD , F0 , C6 , 2B 

, ca 



R f =0 TO 6.3006385 STEP PI/130: 
PLOT 180+80*005 f,a0+S0*SIN f: D 
RflU 5,0: DRflU 0,5: DRhU -5,0: DR 
flU 0,-5: NEXT f; REM arc-en-ciel 

de L'espqce 



Sur Minitel, les ecrans sont tout a I'endroit. Ce sont 
des ecrans normaux, quoi. Parce que sur Oric, on peut 
avoir des ecrans retournes, les pieds en I'air et la tete 
en bas, quoi. Ca vient de chez Jean-Marc Bouzard 
(non, non, je ne ferai pas de jeu de mots...), et puis 
si c'est pas tres original, c'est la premiere fois qu'on 
voit ca sur Oric, quoi. 

Listing Oric Atmos 

Q ;<:=ttfi00S ■ Y=# 1 F 1 8 ; PQKE#30E , 64 REPERT : 
FOR I =0TO39 : 2=X+Y+ 1 : H=PEEKX Z ':> 

1- P0KE2, PEEkX X+I >' P0KEX+I > fi ' NEXT ' X=X+ 
40 Y=Y-80 UHTILY<=0 ' POKE#30E< 192 



Non, je vous demande ga parce qu'en fait, les deuli- 
gnes, c'est pas que des bizarreries. Y a des mecs qui 
ont des idees plutot sympas, d'autres qui en ont des 
utiles. C'est le cas de Fabrice Belief et de son Thom- 
son. La fonction SOUND, par exemple, qui produit des 
sons grace a I'extension jeu. C'est comme ga qu'on 
empoche deux softs, en ne foutant (presque) rien. 

Listing Thomson T07 et TO7/70 seulement 

ft$«»8601B76a0B308C10BF628C308CllBF6£0£ 
30SriHflFRrB639534F554EC4000080D6S1012503 
7E07F3308CF£7E2B38BD0EF51F104D£604C13F83 
037E0B8C34047FE7CFCC3F84B7E7COF7E7CF3584 
F7E7CD39" : CLS: SCREEN4, 6, 6s PRINT"Fonc tion 

SOUND version 1 1 ", "Copb ri gh t 1986 ba Fa 
tor ice" 

1 PRINT: COLOR/, 1 SPRINT" Implantation :";: 
COLOR, . IS INPUT"&H".X*sPRINT:X=VAL< "&H"+X 
*>sF0RT=lT081iPOKEX+T-l,VflL<"S ! H°+MID*<fl* 
,T#a-l,£) '! NEXT: EXECX: CLEAR, X-l 



La, je me dois de faire mes excuses les plus plates 
aux amstradistes : la semaine derniere, un inconnu a 
glisse un listing qui n'avait rien a foutre la. II s'agis- 
sait d'une minuterie erotique envoye par Emmanuel 
Delsaux; voici le vrai listing de la fonction que propo- 
sait Philippe Bernhard, et pardon, excusez-moi, je ne 
le ferai plus. 



Ben voila. Je ne vous quitterai pas sans vous rappe- 
ler que j'ai une BAL sur le serveur de I'HHHHebdo, 
que j'attends que vous m'y ecriviez, que je vous repon- 
drai, et que je n'accepterai pas les deulignes envoyes 
par Minitel. Seuls seront reconnus les demandes 
d'aides, les compliments, et a la rigueur, les insultes 
(mais la, faTtes gaffe : j'ai la repartie cinglante). 
Bye bye. 

Louis-Pierre, le seul, I'unique, le vrai. 




I'espace AMSTRAD 
le plus micro 
de Paris ! 



VIDEOSHOP 




DlSQUETTES AmSOFT 3" CF2 
A l'unite : 40 F. 
Par 10 : 350 F, 

DlSQUETTES 3" CF2 DD 
(Pour lecteur 1 Mega) 
A l'unite : 85 F. 
Par 10 : 790 F. 



VIM V SHOP 



■ . • iiarn • r> D « lun<ii au s3m * t * 9M0 4 19h - 

L espace AMSTRAD 50, ruede Richelieu 75001 Pars- W: (1)42.96,93,95 -Met: Palais Royai 
le plus micro de Paris 251 . boutevard Raspail 7S014 Paris - T«. : (1)43.21.54.45 - Mel. : Raspail 

BON DE COMMANDE a adresser a VIDEOSHOP, Service Expedition, BP 105, 75749 Paris Cedex 15 

Nom D Je vous adresse la commande suivante : 

Pr6nom 



Adr. 



Code Postal Ville 

Telephone 

D Je desire recevoir une documentation sur : 



DESIGNATION 



Montant total TTC 
D Je choisis la formule de reglement : □ ou comptanl 



PRIX TTC I ^^g/0 



D A crAdit 
D Je vous joins mon reglement par : 
Joindre 3 timbres d 2.20F pour frais d'envoi. Q cheque boncaire D CCP Q Contre remboursement (lOOF.en sus). 

I i Je possede un micro ordinateur : {Joindre : photocopie carte d'identite. RIB, derniere fiche de paie. qurt- 

tonce EOF.) 
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MINI MIRE 

SPECIAL 
SCIE MUSICALE 



Comme je vous I'ai promis la 
semaine derniere, ces colonnes 
sont desormais ouvertes au reste du 
monde de la telematique. C'est-a- 
dire ? C'est-a-dire que desormais le 
minitel ne sera plus la seule victlme 
de ma plume dlabolique et que les 
malades de modems et de telechar- 
gements divers vont pouvoir s'en 
dormer a coeur joie en me lisant. 
Chouette, non ? 

Avant de passer a la basse et vile 
pratique, je me dois de vous initier 
aux joies dantesques des plaisirs de 
I' octet transmis. Autrement dit, que 
signifie V23 ? Ah ! Grande question. 
Comme le but de cette rubrique 
n'est pas de vous faire un cours 
magistral, j'irai done droit au but 
avec des exemples precis. Le V23, 
e'est I'appellation qui caracterise 
une transmission selon les normes 
definies par le CCITT. Qu'est-ce que 
le CCITT ? Arretez de poser des 
questions sans cesse ! Disons que 
e'est une commission, un tas de 
bonshommes cales en telematique 
qui s'y connaissent comme per- 
sonne. CCITT, ca veut dire Comite 
Consultatif International Telegraphi- 
que et Telephonique. Ces gus se 
sont mis dans le crane qu'il fallait 
etablir un standard en ce qui con- 
cerne la communication entre ordi- 
nateurs. Et ils n'avaient pas tort, les 
bougres I Le seul probleme, e'est 
que quand vous confiez un boulot 
comme ca a des chercheurs, en 
general, ils vous ressortent un mer- 
dier tout fouillis dans lequel on n'y 
pige que dalle. Done, les recom- 
mandations du CCITT ont ete 
publiees dans des Avis. Quand je 
dis V23 par exemple, je parle de 



I'Avis du CCITT concernant le V23. 
Ce que contiennent ces avis ? Des 
specificites techniques a propos de 
la communication elle-meme, du 
style : frequences des porteuses, 
niveau d'attenuation, bande pas 
sante (des petits loubards qui pas- 
sent sans dire bonjour), etc. II faut 
savoir que le V23, par exemple, ne 
caracterise pas seulement une com- 
munication "compatible minitel". 
Car, pour tout compliquer, dans un 
seul avis il peut y avoir plusieurs 
types de communications. Ce qui 
caracterise particulierement une 
communication entre quelque 
chose et un minitel, e'est la vitesse 
de transmission et surtout le mode 
videotex. C'est pourquoi I'appella- 
tion habituelle V23 pour les commu- 
nications minitel n'est pas juste (une 
communication peut etre V23 et ne 
pas etre recevable sur un minitel, 
c'est le cas de Prestel, le standard 
anglais par exemple). 
Tout ceci est fort complexe, n'est-il 
pas ? On se fait une petite pause 
avant de repartir ? Allez, c'est parti. 
Savez-vous a quoi on reconnait un 
agent des Telecoms qui se marie ? 
A ses baskets blanches. Mouais ... 
Bon, on fera mieux la prochaine fois. 
Excusez-moi. Pardon. 
Done, en ce qui concerne les appel- 
lations diverses, vous savez le prin- 
cipal. Concretement, on peut dire 
que I'Avis V23 concerne entre 
autres le 1200/75 (ou la premiere 
valeur est la vitesse d'emission et 
la deuxieme la vitesse de reception 
du terminal), I'avis V21 vise entre 
autres le 300/300 et I'Avis V22 
caracterise le 1200/1200. Une fois 
cela bien clair dans vos esprits juve- 



niles et done denues de toute cul- 
ture ainsi que de bon sens, on 
pourra generaliser et parler de V23 
pour le 1200/75, V21 pour le 
300/300 et V22 pour le 1200/1200. 
Ceux qui n'auraient pas suivi 
jusqu'a present sont pries de 
s'accrocher fortement a leur fauteuil 
ou de pratiquer une incision a la 
base de leur encephale pour faire 
sortir le surplus negatif qui pourrait 
troubler leur esprit, car ce qui suit 
est encore pire I 

Une fois les choses eclaircies pour 
ce qui est des appellations, il est 
temps de passer a des pratiques 
beaucoup plus viles. J'explique : 
vous avez un certain nombre 
d'octets a envoyer par I'interme- 
diaire d'une interface serie et done, 
en serie (on s'en serait doute). 
"Qu'est-ce qu'une transmission en 
serie", me demandent les plus nuls 
d'entre vous ? C'est theoriquement 
la plus simple : vous prenez vos bits 



tels quels les uns a la suite des 
autres n'est pas viable. II faut done 
trouver un moyen pour signaler cha- 
que nouvel octet a I'ordinateur qui 
recoit. C'est la qu'intervient le cou- 
ple Start bit-Stop bit, bien connu 
pour son concubinage malsain. 
En effet, avant la communication, 
vous devez specifier le nombre de 
bits de donnees et la forme des bits 
de start et de stop (c'est-a-dire ce 
qui va les differencier des autres 
bits). Disons que vous choisissiez 
de communiquer en 8 bits de don- 
nees et 1 bit 1 /2 de stop et de start. 
Voila comment se passe la chose. 
Un bit de start est envoye. La 
machine sait que les 8 bits qui vont 
suivre sont des bits de donnees. Les 
8 bits arrivent, la machine les stocke 
quelque part puis arrive un bit de 
stop qui signale la fin de I'octet De 
cette facon, si un bit a ete oublie, 
I'ordinateur peut s'en rendre 
compte. Le systeme est fort judi- 










~r 










les uns a la suite des autres et vous 
les envoyez betement. Betement ? 
Non, pas betement. Imaginons un 
peu que durant la transmission un 
bit soit oublie ou mange par une 
malencontreuse friture. Tout le reste 
des donnees est decale d'un cran 
et done tout est faux. C'est pourquoi 
la transmission toute bete des bits 



cieux, admettons-le. Le seul pro- 
bleme, c'est quand on choisit un bit 
de stop identique aux bits de don- 
nees. Ben oui, un bit de stop, ca 
reste un bit. L'ordinateur ne peut 
pas faire la difference avec un bit de 
donnee. Done, dans ce cas, c'est 
completement nul comme systeme. 
Et attendez, vous n'avez rien vu. 



Une autre verification est possible, 
il s'agit des bits de parite. Un bit de 
parite est un bit comme les autres 
qui vient se placer entre le dernier 
bit de donnee et le bit de stop. 
Si, au moment de la communica- 
tion, vous choisissez la parite 
impaire, par exemple, cela veut dire 
que le nombre de bits a 1 parmi les 
bits de donnees plus le bit de parite 
devra etre impair. Vous me suivez ? 
Voici un exemple de transmission : 
un bit de start, 10101001 comme 
bits de donnees, puis le bit de parite, 
et enfin le bit de stop. Dans ce cas, 
vous remarquerez au passage que 
le nombre de bits de donnees est de 
8 Bon. La parite est impaire (ca, 
vous I'avez choisi arbitrairement, 
c'est votre papa qui vous a dit que 
ca serait comme ca). Comment va 
etre le bit de parite ? II va etre a 1 
bien sur, car le nombre des bits a 
1 parmi les bits de donnees est de 
4 et qu'il faut qu'il soit impair ! Done, 
on en rajoute un. Si la parite choi- 
sie avait ete paire, le bit de parite 
aurait ete a puisqu'il y a 4 bits a 
1 et que 4 est un chiffre pair. Ok ? 
Vous avez pige ? 
Bien sur, vous pouvez aussi ne pas 
vouloir de bit de parite, auquel cas 
c'est la deche et vous n'etes fran- 
chement pas sympa avec le CCITT 
qui s'est fait chier le bulbe a pon- 
dre des protocoles super-balezes 
rien que pour vous. Sacrebleu ! 
Apres une explication sur le bit de 
parite, on peut bien se reposer un 
peu, non ? Savez-vous pourquoi les 
agents des Telecoms emmenent 
une baignoire a I'eglise ? Pour laver 
Maria. Pour I'Ave Maria, quoi. Ave... 
Maria, laver Maria... Humm. Bon. 
Tres bien... passons... Excusez-moi. 
J'en ai d'autres... 
Notez qu'il n'est pas reellement 
necessaire de connaitre tout ca, pas 
plus que de lire ma rubrique d'ail- 
leurs. C'est juste une preuve 
d'ouverture d'esprit et d'intelligen- 
ce. 

La plupart des connexions en V21 
se font sous le format : 8 bits de 
donnees, pas de parite, 1 bit de 
stop. Bien sur, certains serveurs 
sont accessibles sous d'autres pro- 
tocoles, tout est permis. Parmi les 
"noms" des serveurs en V21 sur 
Paris, on note OUF, la fameuse 
organisation a but non lucratif Ordi- 



nateur Utilisateur France qui est dis- 
ponible en V21 et V23 (enfin, c'est 
moins drole en V23) au (1) 43 40 33 
79. Vous y trouverez de quoi faire 
du telechargement et d'autres peti- 
tes choses. Malheureusement, si 
vous ne possedez pas d'IBM PC, les 
serveurs en V21 ne sont guere inte- 
ressants. J'espere que cela ne 
durera pas et que des petits nou- 
veaux ouvriront leurs portes sous 
peu. Je ne vous cacherai pas etre 
dans le secret des dieux en ce qui 
concerne deux serveurs sur Atari ST 
(V21). Je vous en reparlerai. 
Les minitelleux qui se sont sentis 
leses par I'incursion du 300 bds 
dans leur rubrique, aimeront Micpat 
au (1) 69-40-82-56, Euclide au (1) 
43-71-28-18 et Frestel au 
20-35-65-65. Autres serveurs dont je 
n'ai pas parte, ecrivez-moi comme 
le fait regulierement XXX sur The 
Wild Serv au 91-53-13-24. N'hesitez 
done pas a me faire parvenir vos 
immondes impressions : Hebdogi- 
ciel, Mini-Mire. 24, rue Baron 75017 
Paris. 

Je ne sais pas si vous avez eu le 
plaisir d'avoir entre vos mains soi- 
gnees de Transpacien bute le 
Figaro du 26 mai 1986, mais moi si ! 
On pouvait y lire que I'HHHHebdo 
est un "magazine qui publie perio- 
diquement des codes d'acces a des 
messageries en principe privees". 
Oh lui he ! II est fou ! Pardon mes- 
sire, mais y a maldonne. Les seuls 
codes qui paraissent dans ce jour- 
nal sont des numeros de telephone 
vous permettant de vous connecter 
sur des micro-serveurs tous, sans 
exception, prives. C'est pas parce 
qu'on pirate au Figaro pendant les 
heures du dejeuner qu'il faut croire 
que tout le monde en fait autant 
(he... he ! Voila qui est bien envoye, 
n'est-il pas ?). 

Dernier detail : je ne possede 
qu'une seule boite aux lettres sur 
Teletel 3, elle est sur HG et c'est 
ESCAPE9G avec 75 comme depar- 
tement. Les autres sont des usurpa- 
teurs ! Sus aux usurpateurs de tous 
bords, qu'ils soient Louis-Pierre ou 
Fabrice Broche, leurs manieres sont 
detestables, et le temps qu'il leur 
reste a respirer leur est compte ! 
Adieu. 

Escapeneufge. 



NOUVEAUTES S.E.H. ^ 



LECTEUR DE K7 



POUR 
AMSTRAD 




G COMPTEUR 

□ FOURNI AVEC CABLE 

DE RACCORD 

AMSTRAD 



I49F 



POUR LES MEMBRES 
DU CLUB HEBDOGICIEL 



DYSTAR DRIVE 




POUR APPLE IIC 
ET HE 



POUR f 2r Ur 
LES MEMBRES DU 
CLUB HEBDOGICIEL 

: LECTEUR DE DISQUETTES 
COMPATIBLE APPLE IIC ET 
HE (CABLE FOURNI). 

D SILENCIEUX 

□ GARANTIE 12 MOIS PIECES 
ET MAIN D'OEUVRE 



QUICK SHOT IX 




I33F 



POUR 

LES MEMBRES DU 

CLUB HEBDOGICIEL 



BOULE DE CONTROLE A 
MICRO CONTACT 
□ TIR AUTOMATIQUE 

D CABLE DE RACCORD AUX 
NORMES ATARI. 



FONCTIONNE AVEC ATARI, COM- 
MODORE, SPECTRAVIDEO ET LES 
CONSOLES DE JEUX VIDEO. 
EGALEMENT AVEC AMSTRAD, 
SANS POSSIBILITE D'UTILISER LE 
TIR AUTOMATIQUE NI LES 
VOYANTS DE CONTROLE. 



BON DE COMMANDE A ENVOYER A S.E.H. ,160 rue Legendre, 75017 PARIS. 



LECTEUR K7 : 199 F.D 
DYSTAR DRIVE : 990 F. □ 
QUICKSHOT IX 165 F.D 



PRIX SPECIAL CLUB : 
PRIX SPECIAL CLUB : 
PRIX SPECIAL CLUB : 



149 F.D FRAIS DE PORT + 30F. 
790 F.D FRAIS DE PORT + 40F. 
133 F.D FRAIS DE PORT + 20F. 



NOM : PRENOM : 

ADRESSE : 



I CODE POSTAL : VILLE : 

N° CARTE DU CLUB : N° de telephone : 
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CLUB MNOMIL 



REGLEMENT 

- L'achat des logiciels, des fourni- 
tures et des materiels a prix petes 
est reserve aux membres du club 
Hebdogiciel. 

- Les petites annonces gratuites 
envoyees par les membres du 
club Hebdogiciel sont prioritaires. 

- Les membres du club Hebdogi- 
ciel beneficient d'une remise de 
10% sur I'abonnement annuel et 
semestriel a Hebdogiciel. 

- Les membres du club Hebdogi- 
ciel ont acces a tous les services 
du serveur minitel Hebdogiciel 
HG, y compris la section pirate et 
les boltes aux lettres (mise en ser- 
vice avril 86). 

- Les membres du club Hebdogi- 
ciel beneficient de tarifs reduits sur 
les badges, tee-shirts, casquettes 
et autres gadgets inutiles edites 
par Hebdogiciel. 

- Les membres du club Hebdogi- 
ciel recoivent une carte et un insi- 
gne gratuit lors de leur adhesion 
(a choisir parmi 9 modeles origi- 
naux de Carali). 

- Le club Hebdogiciel apportera 
son aide aux membres du club en 
cas de litige avec des vendeurs ou 
des revendeurs de materiel infor- 
matique. 

- Les membres du club Hebdogi- 
ciel disposent d'un numero de 
telephone direct ou une char- 
mante personne leur fournira tous 
les renseignements sur les activi- 
tes du club et sur les logiciels du 
soft-parade. 

- Un concours de pronostics 
reserve aux membres du club est 
organise chaque mois. Le premier 
prix est beau. Reglement en avril, 
surprise ! 

- La cotisation annuelle pour 
I'adhesion au club Hebdogiciel est 
fixee a 150 francs. 

- La carte du club Hebdogiciel est 
strictement personnelle, elle ne 
peut etre vendue ou pretee. 

- Hebdogiciel se reserve le droit de 
refuser I'adhesion au club a qui 
bon lui semble, non mais I 

- L'adhesion au club Hebdogiciel 
entraine I'acceptation du present 
reglement. 



SUPPORTS 


DSK 


DISQUETTE 


K7 


CASSETTE 


CAR 


CARTOUCHE 


S 


SOFTCABD 



INDISPENSABLE 

RECOMMANDE 

BON 



PRIX 

A : PRIX TARIF 

B : PRIX ABONNE 

C : PRIX CLUB 



Un club 

pas comme les autres ! 

Au lieu de se contenter 

de vous pomper 

150 francs et de partir 

aux Bahamas 

avec votre fric, 

on se decarcasse pour 

vous trouver 

les dernieres nouveautes 

a des prix que 

meme les enormes et 

gras grossistes, ils ont 

jamais vu 9a. 

Regardez le reglement, 

Id, a cote, 

tout est explique. 



TEE-SHIRT 
HEBDOGICIEL 



MAINTENANT 

ON VOUS 

HABILLE 




BON DE COMMANDE A DECOUPER OU A RECOPIER : HEBDOGICIEL VPC : 24 rue Baron, 75017 PARIS 



NOM PRENOM . 

ADRESSE 



VILLE CODE POSTAL. 



TARIF C : N° de carte du Club obligatoire : 

TARIF B : N° d'abonne obligatoire : 

Reglement joint : Cheque bancaire D CCP O Mandat poste (etranger) G 



TAILLE 



SMALL 

MEDIUM 

LARGE 



Quant 



TOTAL : 
Participation aux frais de port : 



MONTANT A PAYER : 



CHOISISSEZ UN BADGE 




AMSTRAD 



ABC 



ABC 



ABC 



ABC 



AMOG1 
AM0O2 
AM003 
AM0O4 
AMO05 
AM006 
AM007 
AM0O8 
AM0O9 
AMOIO 



1013 

1815 

3 BOXING 

3 D BOXING 

3 WEEKS IN PARADISE 

3D FIGHT 

3D FIGHT 

3D GRAND PRIX 

3D GRAND PRIX 

3D MEGACODE 




AM01I 


* 


* 


3D MEGACODE 


AM013 


* 


* 


3D VOICE CHESS FRANCAIS 


AM0I3 


* 


* 


3D VOICE CHESS FRANCAIS 


AMOU 


* 


• 


S mo AXE 


AM01S 


* 


* 


5 me AXE 


AM0I6 


* 




AFFAIRE VERA CRUZ 


AM017 


* 




AFFAIRE VERA CRUZ 


AM016 


* 




AIRWOLF 


AM019 


* 




AIRWOIF 


AM020 


• 


> 


ALIEN 


AM021 


* 


. 


ALIEN 


AM022 


* 


• 


ALIEN 6 


AM033 


« 




ALIEN BREAK 1 


AAA 306 


. 




AMS CALC 


AM3Q7 


* 




AMS CALC 


AM30B 


• 




AMS FONCTION 


AM309 


* 




AMS FONCTION 


AM310 


* 




AMS GRAPH/STAT 


AM311 


* 




AMSGRAPH/STAT 


AM024 


* 


• 


AM STRAM DAMES 



AM025 


* 


• 


AM STRAM DAMES 


AM026 


• 


• 


Au I OF ORMA1 ION ASSEMBLEUR 


AM027 


» 


* 


AUTOFORM AT ION ASSEMBLEUR 


AM028 


* 


* 


BACK IO THE FUTURE 


AMQ29 


• 


* 


BACK TO THE FUTURE 


AM030 


* 




BAD MAX 


AM031 


• 




BAD MAX 


AM033 


* 


* 


BALL BLAZER 


AM033 


• 


* 


BARRY MAC GUIGAN BOXING 


AM034 


* 


* 


BARRY MAC GUIGAN BOXING 


AM036 


* 




BATAILLE D'ANGIETERRE 


AM035 


• 




BATAIILE D'ANGLETERRE 


AM037 


* 




BATAILLE POUR MIDWAY 


AM038 


* 


. 


BATTLE OF BRITAIN 


AM039 


* 


* 


BATTLE OF BRITAIN 


AM302 


* 


* * 


BATMAN 


AM040 


* 




BEACH HEAD 


AM041 


* 




BEACH HEAD 


AM042 


• 


* * 


BOMBJACK 


AM043 


* 


* * 


BORED OF RINGS 



AM044 


* # * 


AM045 


• ** 


AM046 


* * * 


AM298 


* * 


AM299 


* * 



BORED OF RINGS 
BOULDER DASH 
BOULDER DASH III 
BOUNDER 
BOUNDER 



REVENDEURS : 

POUR VOUS PROCURER LES 
LOGICIELS DU CLUB 

CONTACTEZ STEPHANE CARRIE 
AU (1) 42 63 82 02 



BULLETIN D'ADHESION AU CLUB HEBDOGICIEL 

A renvoyer a HEBDOGICIEL, Service VPC, 24 rue Baron 75017 PARIS 

(ECRIRE EN LETTRES CAPITALES) 

Oui, j'adhere des deux mains et des deux pieds au club Hebdogiciel. J'ai pris connaissance du reglement et je vous envoie le mien 
(de reglement), soit 1 50 Irancs pour un an. Je recevrai ma carte d'adherent sous une semaine et je suis content. 

Je choisis le badge n" 



Reglement joint : Cheque bancaire □ CCP □ Etranger : mandat-poste international uniquement □ 

Norn Prenom 

Adresse 

Ville Code Postal 

Signature : 

Attention, si vous commandez des logiciels. utilisez le bon de commands au recto de celui-ct et lanes deux cheques dinerents : un pour I'adhesion au club et un pour votre com 
mande de logiciels 
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QA VIENT DE SORTIR 


AMSTRAD 












AM319* * * 


BATMAN 


DSK 


181 


162 


126 


AM320* * * 


COLOSSUS CHESS 4.0/8256 


DSK 


194 


175 


136 


AM321 * * 


CYRUS CHESS/8256 


DSK 


194 


175 


136 


AM322* * 


DOCTOR WHO 


K7 


146 


132 


103 


AM323 * * 


DOCTOR WHO 


DSK 


207 


187 


145 


AM324 * * * 


HEAVY ON THE MAGIC 


K7 


121 


109 


85 


AM32S * * * 


HEAVY ON THE MAGIC 


DSK 


181 


162 


126 


AM326* 


KNIGHT GAMES 


K7 


121 


109 


85 


AM327** 


L'AIGLE D'OR 


K7 


160 


144 


120 


AM328** 


L'AIGLE D'OR 


DSK 


198 


178 


148 


AM329* 


MELTDOWN 


K7 


109 


98 


67 


AM330* * 


RED HAWK 


K7 • 


121 


109 


85 


AM331 * * * 


REVERSI CHAMPION 


K7 


160 


144 


120 


AM332 * * * 


REVERSI CHAMPION 


DSK 


198 


178 


148 


AM333* 


WATERLOO 


K7 


121 


109 


85 


AM334* 


WATERLOO 


DSK 


160 


144 


120 


AM335* * 


WINTER GAMES 


K7 


121 


109 


85 


AM336** 


WINTER GAMES 


DSK 


181 


162 


126 


AM337* * 


ZOIDS 


DSK 


181 


162 


126 


ATARI ST 












ST023 * * * 


TIME BANDIT 


DSK 


365 


329 


256 


COMMODORE 












C0366** 


BIGGLES 


DSK 


158 


143 


111 


C0367* 


FAIRLIGHT 


DSK 


182 


164 


128 


C0368* * * 


RED HAWK 


K7 


121 


109 


85 


C0369 * * * 


RED HAWK 


DSK 


182 


164 


128 


CO370 * * * 


WAY OF THE TIGER 


K7 


121 


109 


85 


C0371 * * * 


WAY OF THE TIGER 


DSK 


182 


164 


128 


SPECTRUM 












SP247 * 


BIGGLES 


K7 


97 


88 


68 


SP248 * * * 


THE PLANETS 


K7 


121 


109 


85 



ABC 



ABC 



AM047 
AM048 
AM049 
AM050 
AM052 
AM053 
AMOSt 
AM054 
AM055 
AM056 
AM057 
AM058 
AM059 
AM060 
AM061 
AM062 
AM063 
AM064 
AM065 
AM066 
AM067 
AM068 
AM069 
AM070 
AM071 
AM072 
AM073 
AM313 
AM314 
AM074 
AM075 
AM076 
AM077 
AM07S 
AM079 
AMOW 
AMOei 



AM086 
AM087 
AM088 
AM069 
AM090 
AM091 
AM092 
AM093 
AM094 
AAW95 
AM096 
AM097 
AM098 
AMQ99 



moo 



AMI 10 
AMI 11 
AM112 
AM113 
AM114 
AM11S 
AM116 
AMI 17 

AMna 

AMI 19 
AM120 
AM12I 
AM122 
AM123 
AMI 24 
AMI 25 
AM126 
AM127 



bounty bob strikes back 
brian's bloooaxe 
bruce lee 
bruce lee 
cauldron 
cauldron 
caves of doom 
challenger reversi 
challenger reversi 
chuckie egg ii 
cobra pinball 
cobra pinball 
colossus chess 4 
colossus chess 4 
combat lynx 
commando 
computer hits 6 
computers hits 10 
computers hits 10 ii 
conflJzzion 
crafton et xunk 
crafton et xunk 
crazy golf 
cyrus chess 
cyrus chess 

D BASE 2 

DAMBUSTERS 

DAMES 

DAMES 

DAMS 

DAMS 

DARK STAR 

DATAMAT 

DEFEND OR DIE 

DEVIL'S CROWN 

DEVIL'S CROWN 

DEVPAC 

DEVPAC 

DIARY OF ADRIAN MOLE 

DOOMSDAY BLUES 

DOOMSDAY BLUES 

DOPPLEG RANGER 

DRAGON TORC OF AVALON 

DUNDARACH 

DUNDARACH 

DUNGEON ADVENTURE 

DUO PACK F1GH EXLO 

EDEN BLUES 

EDEN BLUES 

ELECTRO FREDDY 

ELECTRO FREDDY 

EUDON 

ELITE 

ELITE 

EMPIRE 

EMPIRE 

ESMERALD ISLE 

FANTASTIC VOYAGE 

FIGHTER PILOT 

FIGHTER PILOT 

FORMULA ONE 

FORTH 

FORTH 

FRANK BRUNO'S BOXING 

FRANK BRUNO'S BOXING 

FRANKENSTEIN 

FRANKIE GOES TO HOLLYWOOD 

GALAX IA 

GENESIS 

GESTE D'ARTILIAC 

GESTE D'ARTILIAC 

GET DEXTER 

GET DEXTER 

GRAFPAD 2 

GRAFPAD 2 

GYROSCOPE 

HACKER 

HACKER 

HARD HAT MAC 

HARRIER STRIKE FORCE 

HARRIER STRIKE FORCE 

HERBERT'S DUMMY RUN 

HI-RISE 



K7 


106 


95 


70 


AMI28 


* * 




K7 


109 


98 


76 


AM 179 


ft** 




K7 


110 


99 


77 


AM 130 


* * * 




DSK 


170 


153 


115 


AM131 


* 




K7 


ve 


88 


70 


AM132 


* 




DSK 


1S3 


138 


101 


AM133 


* 


I 


K7 


30 


27 


20 


AM134 


* 




K7 


130 


1 17 


91 


AM135 


** 




DSK 


189 


170 


179 


AM 136 


** 




K7 


1 14 


103 


B0 


AMI37 


* * * 




K7 


140 


126 


97 


AM13B 


* * 




DSK 


219 


197 


148 


AMI39 


* * 




K7 


119 


107 


87 


AMI 40 


* * 




DSK 


155 


1*0 


105 


AMI4I 


* 




K7 


109 


98 


76 


AM142 


* 




K7 


107 


96 


68 


AM143 


ft 




DSK 


182 


169 


127 


AM 144 


** 




K7 


121 


108 


85 


AM145 


„ 




K/ 


121 


108 


85 


AM146 


* * * 


| 


K7 


B7 


78 


62 


AM147 


* 




K7 


140 
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HI RISE 

HIGHWAY ENCOUNTER 
HIGHWAY ENCOUNTER 
HMS COBRA 
HMS COBRA 
HOLD UP 
HUNCHBACK II 
HYPERSPORT 
HYPERSPORT 
IMPOSSIBLE MISSION 
INFERNAL RUNNER 
INFERNAL RUNNER 
JAMMIN'S 
JET SET WILLY 
JUGGERNAUT 
KIT PROGRAMMEUR 
KNIGHTLORE 
KONG STRIKES BACK 
LAZER BASIC 
LE SURVIVANT 
LOGO FRANCAIS 
LORDS OF MIDNIGHT 
LORDS OF MIDNIGHT 
LORDS OF THE RING 
LORIGRAPH 
LORIGRAPH 
MACADAM BUMPER 
MACADAM BUMPER 
MANDRAGORE 
MANDRAGORE 
MANIC MINER 
MARSPORT 
MARSPORT 
MASTER OF MAGIC 
MASTER OF THE LAMPS 
MATCH POINT 
MELBOURNE PACK 
METRO 201 B 
METRO 201 B 

MEURTRE A GRANDE VITESSE 
MEURTRE A GRANDE VITESSE 
MEUTRES SUR 1 ATLANTtQUI 
MEUTRES SUR L AUANTIOUF 
MICROSC RABBLE 
MKTROSCRABBLE 
MINDSHADOW 
MINDSHADOW 
MINIOFFICE 
MINIOfFICE 
MONTSEGUR 
MOVIE 

MR WON'S LOOPY LAUNDRY 
MULTIPLAN 
AD 
NEVER ENDING STORY 
NIGHT SHADE 
OMEGA PLANETE INVISIBLE 
ONE MAN ANS HIS DROIDS 
ORPHEE 
PACIFIC 
PACIFIC 
PACK FIVE 
PANZADROME 
PING PONG 
PING PONG 
PLANETE BASE 
POUVOIR 
POUVOIR 
PROJECT FUTURE 
PUNCHY 
PUNCHY 
PYJAMARAMA 
PYJAMARAMA 
RAID 
RAID 
RAMBO 
RASPUTINE 
RED ARROWS 
RED ARROWS 
RED MOON 
ROCCO 

ROCKY HORROR SHOW 
ROCKY HORROR SHOW 
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ADVENTURE CONSTRUCTION 
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ANGLAIS 1 
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ARCHON II 
BARD'S TALE 
CAPTAIN GOODNIGHT 
CARMEN Of SAN DIEGO 
CHOPLIFTER 
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CRIME 0U PARKING 
DALLAS QUEST 
EAMON 
EPIDEMIE 
HOLD UP 
KARATEKA 
ITTIE COMPUTER PREOPLE 
MANDRAGORE 
MAX THE GLOBE TROTTER 
MEME LES POMMES Dt TERRE 
MOCB1US 
MOVIE MAKER 
MUR DE BERLIN 
MUSIC CONSTRUCTION 
OPERATION MERCURY 
PARANOIAK 
PORTEFEUILLE BOURSIER 
SKY BLAZER 
SKYFOX 
SPACE SHUTTLE 
SUMMER GAMES II 
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WIZARDRY t 
XPER 



200 


180 




769 


242 




375 


338 




425 


382 




425 


362 




425 


382 




425 


362 




425 


382 




200 


180 




380 


342 




350 


315 




493 


444 




269 


242 




396 


356 




190 


171 




195 


175 




100 


90 




195 


176 




290 


261 




380 


342 




350 


315 




290 


261 




800 


720 




190 


171 




680 


612 




200 


180 




195 


176 




700 


180 




390 


351 




190 


171 




:»S0 


1305 




740 


216 




180 


162 




328 


295 




267 


240 




195 


175 




740 


666 




297 


267 




470 


423 




950 


855 


( 



ATARI 



A 1001 


* * 


AMERICAN ROAD RACE 


A [002 


** 


AMERICAN ROAD RACE 


AT003 


* * 


ARCADE CLASSICS 


AT004 


** 


ARCHON 


AT0OS 


** 


ARCHON 


AT007 


** * 


AXIS ASSASSIN 


AT008 


** * 


AXIS ASSASSIN 


AT009 


* * * 


BALLBLAZER 



K7 


121 


109 


DSK 


180 


167 


K7 


121 


108 


K7 


145 


131 


DSK 


181 


163 


K7 


97 


87 


DSK 


119 


104 


DSK 


1B2 


164 



ATOIO 




BALLBLAZER 


AT012 


* 


BEACH HEAD 


AT0I3 


ft 


BEACH HEAD 


AT0I4 


* * 


BLUE MAX 


AI01S 


** 


BLUE MAX 


AT0I6 


* * 


BLUE MAX 2001 


AI017 


* * 


BLUE MAX 2001 


ATOM 


* * 


BOULDERDASH II 


AT021 


* * 


BOULDERDASH II 


AT022 


** 


BOUNTY BOB 


AT023 


* • * 


BRUCE LEE 


AT024 


* • * 


BRUCE LEE 


AT025 


* 


CHOP SUEY 


AT026 


* 


CHOP SUEY 


AT028 


ft ft ft 


COLOSSUS CHESS 


ATOM 


* 


COMBAT LEADER 


AT032 


* * 


D-BUG 


AT033 


* * 


D-BUG 


AT03S 


* 


DECATHLON 


AT036 


* 


DECATHLON 


AT037 


ft * * 


DROP ZONE 


ATOM 


* * * 


EIDOLON 


AT039 


* * 


ELECTRA GLIDE 


AT040 


* * 


ELECTRA GLIDE 


AT041 


* 


ENCOUNTER 


AT042 


* * 


F IS STRIKE EAGLE 


AT043 


* * 


F IS STRIKE EAGLE 


AT044 


* 


FIGHTER PILOT 


AT04S 


ft 


FIGHTER PILOT 


AT046 


* * 


FIVE A SIDE 


AT047 


* 


FLIP AND FLOP 


AT048 


* * 


GHOST CHASER 


AT049 


* 


GHOSTBUSTERS 


AT050 


* 


GHOSTBUSTERS 


AT051 


** 


GOONIES 


AT052 


* 


GREMLINS 


AT053 


** 


HACKER 


AT0S4 


** 


HACKER 


AT05S 


* * 


HARD HAT MACK 


AT056 


* * 


HARD HAT MACK 


AT057 


* * 


JUMP JET 


AT058 


* • 


JUMP JET 


AT059 


ft * * 


KARATEKA 


ATG60 


* * * 


KENNEDY APPORACH 


AT061 


ft ft ft 


KENNEDY APPROCH 


AT062 


** 


KNIGHTS OF THE DESERT 


AT063 


*** 


KORONIS RIFT 


AT065 


* * * 


MEDIATOR 


AT066 


ft ft ft 


MEDIATOR 


AT067 


* * • 


MERCENARY 


AT066 


* ft * 


MERCENARY 


AT069 


* * 


MKJ ALLEY ACE 


AT070 


* * 


MIG ALLEY ACE 


AT071 


* * * 


MINER 2049 


AT072 


* 


MOON SHUTTLE 


AT073 


* 


MOON SHUTTLE 


AT074 


ft 


NATO COMMANDER 


AT 07 5 


* * 


ONE ON ONE 


AT076 


* * 


ONE ON ONE 


AT077 


ft 


PITFALL II 


AT07B 


ft * 


PRINT SHOP 


AT079 


ft ft ft 


REALM OF IMPOSSOBIIITY 


AT080 


* * 


RED MOON 


AT081 


* * * 


RESCUE OF FRACTALUS 


AT082 


ft ft* 


RESCUE Of FRACTALUS 


atob: 


ft ft 


RIVER RAID 


AT084 


* * ft 


ROAD RACE 


AT085 


* * 


SMASH HITS 1 


AT086 


* * 


SMASH HITS 2 


AT087 


** 


SMASH HITS 3 


ATOBB 


* * 


SMASH HITS 4 


ATOEP 


ft ft 


SMASH HITS 4 


AT09( 




SOCCER 


AT09I 


** 


SOLO FLIGHT 


AttW 


ft * * 


SOLO FLIGHT 


AT093 


* * * 


SPACE SHUTTLE 


AT094 


* * 


SPIDERMAN 


AT09J 


ft * 


SPIDERMAN 


AT096 




SPITFIRE ACE 


AT097 


* * 


SPY HUNTER 


AT098 




SPY HUNTER 
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797 


M8 


DSK 


173 


156 


110 


K7 


109 


98 


75 


DSK 


155 


140 




K7 


121 


109 


85 


DSK 


157 


141 


110 


K7 


121 


109 


87 


DSK 


175 


158 


119 


K7 


168 


151 


we 


K7 


74 


67 


55 


DSK 


104 


94 


73 


K7 


112 


101 


B2 


K7 


121 


109 


85 


DSK 


157 


141 


110 


K7 


125 


112 


88 


DSK 


454 


409 


3M 


DSK 


157 


141 


110 


K7 


124 


117 


81 


K7 


121 


109 


85 


DSK 


163 


147 


104 


K7 


125 


113 


B8 


K7 


147 


132 


94 


K7 


'62 


144 


114 


K7 


162 


146 


114 


K7 


we 


160 


125 


K7 


121 


109 


85 


DSK 


157 


141 


110 


CAR 


162 


147 


104 


K7 


190 


171 


82 


DSK 


710 


:B9 


117 


K7 


129 


116 


90 


K7 


101 


91 


74 


OSK 


107 


96 


79 


K7 


121 


109 


82 


K7 


121 


109 


82 


DSK 


WO 


153 


119 


K7 


121 


109 


85 


DSK 


162 


146 


114 


K7 


119 


107 


87 


K7 


121 


109 


82 


DSK 


W{ 


153 


119 


K7 


112 


101 


8? 


DSK 


125 


112 


B8 


DSK 


170 


153 


119 


K7 | 121 1 109| 82 


[ DSK 


| 157 


1 M 


110 



AT109 


ft ft ft 


ATI 10 


ft ft 


ATI 11 


* * * 


ATI 12 


* ft * 


ATI 13 


ft ft ft 


ATI 14 


ft ft ft 


ATI 15 


ft ft ft 


AT1 16 


* * * 


ATI 17 


ft ft ft 


ATI 18 


ft * * 



SUMMERGAMES II 

SUPER ZAXXON 

TAPPER 

TAPPER 

THE LAST V8 

ULTIMA III 

UP AND DOWN 

UP AND DOWN 

ZORRO 

ZORHO 



ATARI ST 



ST001 I* ft I BBS 
ST022 * BORROWED TIME 

5T0O ft ft ft BRATACCAS 
ST003I I CALENDAR 





A B 


c 


DSK 


262 


396 


127 


K7 


113 


107 


82 


K7 


112 


101 


82 


DSK 


170 


153 


119 


K7 


45 


40 


31 


DSK 


210 


189 


15S 


K7 


11* 


101 


82 


DSK 


170 


153 


119 


K7 


112 


101 


82 


OSK 


170 


153 


119 



DSK 365 

DSK 310 
DSK 

| DSK 245 



PRIX 




A : 


PRIX TARIF 


B : 


PRIX ABONNE 


C : 


PRIX CLUB 



ST004 


*** 


ST005 


* * * 


ST006 


* 


ST007 


** 


STooe 


*ft 


ST0O9 


* 


ST010 


* * 


ST011 


* 


ST0I2 


* 


ST013 


* 


ST014 


ft * 


ST01S 


* ft 


ST016 


* 


ST017 


* 


SToie 




ST019 


* * * 


ST021 


* 



COLOUR SPACE 

DEGAS 

DFT IBM/ ST 

DISK HELP 

DOS SHELL MS/DOS EMUL 

FLIP SIDE 

HACKER 

KISSED 

LANDS Of HAVOC 

M-COPY 

DISK RAM DISK 
Ml TERM 
MINDSHADOW 
MUD PIES 
SOFT SPOOL 
THE PAWN 
UTILITIES 



DSKJ 


245 


220 


DSK 


430 


387 


DSK 


365 


328 


DSK 


365 


378 


DSK 


365 


378 


DSK 


245 


720 


DSK 


310 


779 


DSK 


365 


378 


DSK 


245 


220 


DSK 


609 


548 


DSK 


157 


141 


OSI 


365 


328 


DSK 


310 


279 


DSK 


245 


2M 


DSK 


245 


220 


DSK 


310 


279 


DSK 


4M 


387 



COMMODORE 



CO001 


ft ft ft 


4 ZZAP ! SIZZLERS 


CO002 


ft ft * 


4 ZZAP ! SIZZLERS 


CO0O3 


ft ft ft 


4 m. PROTOCOLE 


CO004 


ft ft ft 


4 m« PROTOCOLE 


CO005 


* * 


ADVENTURE CONSTRUCTION 


CO006 


* * 


AIR WOLF 


CO007 


* * 


ALTERNATE REALITY THE CITY 


coooa 


ft ft 


AMERICAN ROAD RACE 


CO009 


* * 


AMERICAN ROAD RACE 


CO010 


ft * 


ARCADE CLASSICS 


coon 


ft* 


ARCADE HALL Of FAME 


CO012 


* * 


ARCADE HALL OF FAME 


CO013 


* * 


ARCHON 


COO 14 


* * 


ARCHON 


CO015 


*ft 


ARK PANDORA 


COO 16 


* * 


ARK PANDORA 


CO017 


ft ft ft 


AXIS ASSASSIN 


CO0IB 


ft ft ft 


AXIS ASSASSIN 


CO019 


ft* 


AZTEC 


COOM 


** 


BACK TO THE FUTURE 


CO021 


* * * 


BALLBLAZER 


COOM 


* ft * 


BALLBLAZER 


COOM 


** 


BARRY MAC CUIGAN BOXING 


CO074 


** 


BARRY MAC GUIGAN BOXING 


C0025 


ft 


BATAIILE POUR MIDWAY 


COOT* 


ft* 


BAT Tit D'ANGLETERRE 


CO027 


* ft 


BATTLE FOR BRITAIN 


COOM 


ftft 


BATTLE FOR BRITAIN 


CO029 


ft 


BEACH HEAD 


COOM 


* 


BEACH HEAD 


CO031 


* 


BEACH HEAD II 


CO032 


* 


BEACH HEAD 11 


COOM 


* * 


BLACKWHYCHE 


CO034 


* * 


BLADE RUNNER 


CO035 


ft ft 


BLUE MAX 


CO036 


ft ft 


BLUE MAX 


CO037 


* ft 


8LUE MAX 


CO038 


* 


BLUE MAX 2001 


COC39 


* * * 


BOMBJACK 


CO040 


* * 


BORROWED TIME 


C0041 


ft ft ft 


BOULDERDASH 



K7 


121 


108 




DSK 


182 


169 


1 


K7 


157 


141 




DSK 


194 


174 


1 


DSK 


160 


144 


1 


K7 


97 


87 




DSK 


240 


216 




K7 


121 


109 




DSK 


190 


171 




K7 


121 


108 




K7 


121 


ioe 




DSK 


182 


169 


' 


K7 


145 


130 


1 


DSK 


165 


149 




K7 


121 


108 




DSK 


121 


108 




K7 


96 


87 




DSK 


120 


108 




DSK 


116 


104 




K7 


114 


103 




K7 


115 


104 




DSK 


180 


162 




K7 


130 


117 




DSK 


160 


144 




K7 


140 


112 




K7 


140 


112 




K7 


T20 


108 




DSK 


147 


151 




K7 


121 


109 




DSK 


155 


140 




K7 


121 


109 




DSK 


170 


153 




K7 


120 


108 




K7 


110 


99 




K7 


112 


101 




K7 


112 


101 




DSK 


180 


162 




DSK 


ISO 


162 




K7 


loe 


97 




D^,K 


160 


144 




K7 


109 


98 





QUICKSHOT II 



Le baton de joie le plus 

vendu dans le monde. 

Plus de 4 millions 

cT adept es ! 



85 



B 



76 




i 



BON DE COMMANDE A DECOUPER OU A RECOPIER : HEBDOGICIEL VPC, 24 RUE BARON, 75017 PARIS 

Determinez vous-meme le prix auquel vous avez droit. Colonne C pour les membres du club. Colonne B pour les abonnes. Colonne A pour les vislteurs. 



Nom Prenom 

I Adresse 

. Ville Code postal 

' N°telephone. : 

I 

Date de la commande : 

Les cheques recus ne seront encaisses qu'apres la livraison des materiels commandes. 
I Cheque renvoye en cas de rupture de stock. 

| Tarif C : N° de carte de club obligatoire : 

Tarif B : N° d'abonne obligatoire. : 

i Reglement joint : Cheque bancaire □ CCP □ Etranger : Mandat poste international n 



Ref 



Log. 



AMERICAN ROAD 



Ord. 



Support 



CASSETTE 



Tarif 



Prix 



Quant. 



ECRIVEZ LA REFERENCE, 

ET LE NOM DE L'ORDINATEUR 

EN ENTIER 



TOTAL : 

Participation aux Irais de port . 

MONTANT A PAYER : 



Montant 



15,00. 



18 



ABC 



ABC 



ABC 



ABC 



ABC 



CCXM2 * 
CO0*3 * 

coo*' * 

COO*5 * 
COOA6 * 
CO0V * 
CO046 * 
CO049 * 
CO0» * 
CO05I * 
CO053 * 
COOM * 
COOW * 
CO055 * 
CO056 * 
CO05T * 
CO058 * 
CO059 * 
CO060 * 
CO061 * 
COQ62 * 
CO063 * 
CO064 * 
CO065 * 
CO066 * 
CO067 * 
CO068 * 
CO069 * 
CO070 * 
CO071 * 
CO072 * 
CO073 * 
CO074 * 
CO075 * 
CO076 * 
CO077 * 
CO07B * 
CO079 * 

cooso * 
cooei * 

CO082 * 
CO083 * 
CO084 * 

cooes * 

CO066 * 

cooes * 

COON « 

CO090 ft 

CO091 * 

CO092 * 

CO093 * 

C0094 4 

CO095 t 

CO096 « 

CO097 -t 

CO098 i 

CO099 i 

COIOO 1 

COIOI * 

CO102 . 

CO103 i 

COI04 t 

COI05 i 

CO106 i 

COI07 i 

coioe i 

CO109 ! 
CO) 10 . 
COl 1 1 , 

con 2 i 

COl 13 i 
COIN i 

com i 
com . 
com 

com i 
com 

COI20 
C0121 
COl 23 
COl 23 
C0364 
C0365 
C0124 
COl 25 
C0363 
COl 26 
C0127 
CO)28 
COl 29 
COI30 
COIS 
O0132 
C0133 
COl 34 
COI35 
C0136 
COl 37 
COl 38 
C0139 
COl 40 
C0141 
COl 42 
COl 43 
C0144 
COl 45 
COI46 
COl 47 

cone 

CO 149 
CO150 
CO 151 
CO 152 
COl 53 
COl 54 
COl 55 
COl 56 
COl 57 
COlSfl 
COl 59 
COl 60 
C0161 
COl 62 
C0163 
COl 64 
COl 65 
COl 66 
C0167 
C016B 
C0169 
COl 70 
COI71 
COl 72 
COl 73 
COl 74 
COl 75 
COl 76 
C0177 
COl 78 
COl 79 
C0359 
COl 80 
COIBI 
COl 82 
COl 83 
COl 84 
COl 85 i 
COl 86 i 
COl 87 , 
COl 88 , 
COl 89 , 
COl 90 i 
COl 91 , 
COl 92 , 
C0193 , 

COl 94 , 
COl 95 i 
COI96 i 
COl 97 | 

"C0196 i 
COl 99 , 
CO 200 i 
CO201 , 
CO202 i 
CO203 i 
CO204 i 
CO205 i 
CO206 , 
CO207 , 
CO208 i 
CO209 ■ 
CO210 , 
C021 1 i 
C0212 i 



BOULDERDASH 
BOULDERDASH II 
BOULDERDASH III 
BOUNDER 
BOUNDER 
BOUNTY BOB 
BOUNTY BOB 
BOZO'S NIGHT OUT 
BREAK DANCE 
BRIAN JACKS SUPERSTAR 
BRIAN JACKS SUPERSTAR 
BRUCE LEE 
BRUCE LEE 
BURNING RUBBER 
CARTOUCHE MEGAMEM 50 KO 
CASTEL DOCTOR CRHP 
CAULDRON 
CENTIPEDE 
CHARTBUSTER 
CHOPLIFTER 
CHOPLIFTER 
COLOSSUS CHESS 4 
COLOSSUS CHESS 4 
COMBAT LEADER 
COMBAT LYNX 
COMIC BAKERY 
, COMMANDO 
, COMMANDO 
I COMPUTER HITS 10 
, COMPUTER HITS 10 
t COMPUTER HITS 10 II 

COMPUTER HITS 6 
t CONAN 

COSMIC BOUNCE 
D-BUG 
. DALLAS QUEST 
DAMBUSTERS 
DAMBUSTERS 

DAVID'S MIDNIGHT MAGIC 
DECATHLON 
DECATHLON 
k DIARY OF ADRIAN MOLE 
DIG DUG 
DONALD DUCK 
DONALD DUCK 
DR WHO 
DR WHO 
DUNOARACH 
DUNGEON ADVENTURE 

* EIDOLON 
ft EIDOLON 

ELECTRA GLIDE 

ELIDON 

ELIDON 
ft ELITE 
ft ELITE 

ENIGMA FORCE 

EXTRA TOOL 

EXTRA TOOL 

FAIRLIGHT 
ft FAST LOAD CARTOUCHE 

FIGHT NIGHT 

FIGHT NIGHT 

FIGHTER PILOT 

FIGHTER PILOT 

FIGHTING WARRIOR 

FIONA RIDES OUT 

FIVE A SIDE FOOTBALL 

FLIGHT SIMULATOR II 

FORTH 

FRANK BRUNO'S BOXING 

FRANK BRUNO'S BOXING 

* FRANKIE GOES HOLLYWOOD 
ft FRANKIE GOES HOLLYWOOD 

FRIDAY THE 13 TH 
FRIDAY THE 13 TH 
GAME MAKER 
GENESIS 

GHETTO BLASTER 
GHOSBUSfER 
GHOSBUStER 

GOLF CONSTRUCTION SET 
GOLF CONSTRUCTION SET 
GOONIES 
GOONIES 
GREEN BERET 
GROGGS REVENGE 
ft GYROSCOPE 
ft GYROSCOPE 

H.E.R.O 

HACKER 

HACKER 

* HARD BALL 

* HARD BALL 
HARD HAT MACK 
HARD HAT MACK 
HERBERTS DUMMY RUN 
HUNCHBACK II 
HYPER BIKER 

* IMPOSSIBLE MISSION 

* IMPOSSIBLE MISSION 
INDIANA JONES 
INFERNAL RUNNER 

ft INTERNATIONAL SOCCER 

JAMMIN 

JAMMIN 

JUMP JET 

JUMP JET 
ft KARATEKA 
ft KARATEKA 
ft KENNEDY APPROACH 
ft KENNEDY APPROACH 

KENSINGTON 

KONG STRIKES BACK 
ft KORONIS RIFT 

* KORONIS RIFT 
KUNG FU MASTER 
KUNG FU MASTER 

ft KWICK COPY 

ft LAW OF THE WEST 

LAW OF THE WEST 

LAZY JONES 
ft LITTLE COMPUTER PEOPLE 
ft LITTLE COMPUTER PEOPLE 
ft LOOE RUNNER 
ft LOOE RUNNER 

LORDS OF MIGNIGHT 
ft LORDS OF THE RINGS 

MACADAM BUMPER 
ft MACHINE LIGHTING 

MAIL ORDER MONSTERS 
ft MANDRAGORE 

* MANDRAGORE 

* MANIC MINER 
MASK OF THE SUN 

ft MASQUERADE 

ft MASTER OF MAGIC 

MASTER OF THE LAMP 

MATCH POtNT 

MAX ASSEMBLEUR 

MAX HEADROOM 

MELBOURNE PACK 
ft MERCENARY 

* MERCENARY 
MICROSCRAB8LE 
MIG ALLEY ACE 
mkv ALLEY ACE 

ft MINDSHADOW 

* MINDSHADOW 

* MOEBIUS 
MONSTER TRIVIA 
MOON SHUTTLE 
MOON SHUTTLE 
NICK FALDO GOLF 
NIGHT MISSION PINBALL 
NIGHT MISSION PINBALL 

ft NIGHTSHADE 

NODES OF YESOD 

NOW GAMES 

NOW GAMES 2 

OMEGA PLANETE INVISIBLE 

OMEGA PLANETE INVISIBLE 

ON COURT TENNIS 

ONE ON ONE 

ONE ON ONE 

OPERATION CYBORG 

OPERATION WHIRLWIND 

OPERATION WHIRLWIND 

OUTLAWS 
ft PARADROID 

* PARADROID 
ft PASCAL 64 

PASTFINDER 
PASTFINDER 



DSK 
DSK : 
DSK 



DSK 
DSK 



C02I3 * 


* ft PINBALL CONSTRUCTION 


C0214 i 


ft * PINBALL CONSTRUCTION 


C0215 i 


* * PING PONG 


C0216 i 


* PITSTOP 11 


C02I7 1 


* PITSTOP II 


C02I8 1 


POLE POSITION 


C02I9 


ft POOYAN 


CO220 


ft 


>SI WARRIOR 


C022I 


ft 


'SYTRON 


C0222 


ft 


IMS TITANIC 


C0223 


t ft 


? M S TITANIC 


C0224 


k ft* 


RACING DESTRUCTION SET 


C0225 


> ft ft 


RACING DESTRUCTION SET 


C0226 


k * 


RAID OF BUNGELING BAY 


C0227 


k ft 


RAID OVER MOSCOW 


C0228 


k ft 


RAID OVER MOSCOU 


C0229 


k ft ft 


RAMBO 


CO230 


k * * 


ft AM BO 


C0231 


k ft ft 


REALM OF IMPOSSIBILITY 


C0232 


k ft ft 


REALM OF IMPOSSIBILITY 


C0233 




RED ARROW 


C0234 


k ft 


RED MOON 


C0235 


k * * 


RESCUE ON FRACTALUS 


C0236 


» * ft 


RESCUE ON FRACTALUS 


C0237 


* ft ft 


REVS 


C0238 


ft ft ft 


REV'S 


C0239 


• 


RIVER RAID 


CO240 


* 


RIVER RAID 


C0241 


ft ft 


ROAD RACE 


C0242 


ft * 


ROAD RACE 


C0243 


* 


ROBIN OF THE WOOD 


C0244 


ft ft 


ROCK'N WRESTLE 


C0245 


ft ft 


ROCK'N WRESTLE 


C0246 


* 


ROCKY HORROR SHOW 


C0247 


* 


ROCKY HORROR SHOW 


C0248 


ft ft 


RUPPERT 


C0249 


ft ft 


SABRE WULF 


CO250 


ft ft 


SABRE WULF 


C0251 


* * ft 


SCARABEUS 


C0252 


* ft ft 


SCARABEUS 


C0253 


ft * 


SCHIZOPHRENIA 


C0254 


ft * 


SCUBA DIVE 


C0255 


ft ft ft 


SEVEN CITIES OF GOLD 


C0256 


ft ft ft 


SHADOW FIRE 


C0257 


ft ft ft 


SHADOW FIRE 


C0256 


* ft ft 


SHERLOCK HOLMES 


C0259 


* ft 


SKYFOX 


CO260 


* ft 


SKYFOX 


C026I 


* 


SLAPSHOT 


C0262 


ft* 


SOLO FLIGHT 


C0263 


ft ft * 


SORCERY 


C0264 


** 


SPACE DOUBT 


C0265 


* ft 


SPACE PILOT II 


C0266 


ft ft 


SPACE PILOT II 


CO»7 


ft * 


SPACE SHUTTLE 


C0368 


* * 


SPACE SHUTTLE 


C0269 


ft 


SPEED KING 


CO270 


ft 


SPEED KING 


C0271 


ft * * 


SPEELBOUND 


C0272 


** 


SPELUNKER 


C0273 


* * 


SPELUNKER 


C0274 


** * 


SPINDIZZY 


C0275 


ft * * 


SPINDIZZY 


C0276 


ft 


SPITFIRE 40 


C0377 


ft 


SPITFIRE ACE 


C0278 


* 


SPLATSHOT 


C0279 


ft* * 


SPY VS SPY 


CO280 


ft ft ft 


SPY VS SPY 


C0261 


* * 


SPY VS SPY II 


C0361 


* * 


SPY VS SPY II 


C0282 


* ft 


SPY VS SPY II 


C03B3 


ft ft 


SPY'S DEMISE 


C0284 


** 


SPY'S DEMISE 


C0285 


* * 


STAFF OF KARNATH 


C02B6 


* * 


STAR LEAGUE BASEBALL 


C0287 


ft ft ft 


STARION 


C0288 


ft ft ft 


STARION 


C0289 


ft ft 


STARSHIP ANDROMEDA 


CO290 


ft ft 


STARSHIP ANDROMEDA 


C0291 


« * 


STEALTH 


C0292 


*# 


STELLAR 7 


C0293 


* 


STEVE DAVIS SNOOKER 


C0294 


ft ft 


STRIP POKER 


C029S 


* * * 


SUMMERGAMES 


C0296 


ft ft * 


SUMMERGAMES 


C0297 


* • * 


SUMMERGAMES II 


C0296 


* * 


SUPER SILVER PACK 


C0299 


* 


SUPERBOWL 


co*» 


ft, 


VJPWlPtUNE M 


CO301 






CO302 


* 


SUPERZAXXON 


CO303 


* * 


TALES OF ARABIAN NIGHT 


CO304 


* * 


TALES OF ARABIAN NIGHT 


CO305 


* * 


TAPPER 


CO306 


ft • 


TAPPER 


CO307 


* * 


TERROR MOUNDS 


CO308 


* ft ft 


THE HOBBIT 


CO309 


ft ft ft 


THE HOBBIT 


CO310 


ft ft ft 


THE LAST V8 


C0311 


ft ft ft 


THE MUSIC STUDIO 


C03I2 


ft ft ft 


THE MUSIC STUDIO 


C0313 


* * 


THEATRE EUROPE 


C0314 


ft * 


THEY A SOLD MILLION 


C03I5 


ft ft ft 


THEY A SOLD MILLION II 


C0316 


« • 


THEY SOLD A MILLION 


C03I7 


** ft 


THEY SOLD A MILLION II 


C0318 


* * 


THING ON A SPRING 


C0319 


» * 


THING ON A SPRING 


CO320 


ft * 


TIR NA NOG 


C0321 


* * 


TORNADO LOW LEVEL 


C0322 


* 


TOURNAMENT TENNIS 


C0323 


ft 


TOY BIZARRE 


C0324 


* ft * 


ULTIMA 111 


C0325 


it * 


UNDERWURLDE 


C0326 


• * 


UNDERWURLDE 


C0337 


ft * * 


UP AND DOWN 


C0338 


ft * * 


URIDIUM 


C0329 


** * 


URIDIUM 


CO360 


* * 


V 


CO330 


• * 


VIRGULE 


C0331 


* * * 


VIRGULE SENIOR 


C0332 


* * 


WAY OF EXPLODING FIST 


C0333 


* ft 


WAY OF EXPLODING FIST 


C0334 


ft • 


WHIRL INURD 


C0335 


ft ft ft 


WHO DARES WINS II 


C0336 


ft ft ft 


WHO DARES WINS II 


C0337 


* * 


WILD WEST 


C0338 


ft * 


WILD WEST 


C0339 


* 


WINNIE THE POOH 


CO340 


ft ft ft 


WINTERGAMES 


C0341 


* * * 


WINTERGAMES 


C0342 


ft ft ft 


WIZARD 


C0343 


** * 


WIZARD 


C0344 


» * 


WIZARDRY 


C034S 


* * 


WIZARDRY 


C0346 


ft * 


WIZARDS LAIR 


C0347 


■ * 


WORLD SERIES BASEBALL 


C0348 


ft* 


XPER 


COS49 


* * 


YIE AR KUNG FU 


CO350 


ft * ft 


Z 


C0351 


* 


ZAXXON 


C0352 


* * 


ZENJI 


C0353 


* * 


ZOIDS 


C0354 


ft 


ZORK 1 


C0355 


ft 


ZORK II 


C0356 


ft 


ZORK III 


C0357 


* * * 


ZORRO 


C0358 


ft ft ft 


ZORRO 



0RIC 



ORU0I 




1615 


ORO02 


* * * 


3 D FONGUS 


OR006 


* * 


3D MUNCH 


OR007 




A VIEW TO A KILL 


OR0CW 


* 


AIGLE DOR 


OR011 


* 


ARCHERONS RAGE 


OR013 


* 


ASSIMIL ANGLAIS 


OR0U 


* 


ASSIMIl ANGLAIS 


OR015 


* 


ASSIMIL ESPAGNOl 


OR016 


ft 


ASSIMIL ESPAGNOL 


OR0I7 


* 


ATLANTIS 


OR070 


* 


BASIC PLUS 


OR021 


* 


BASIC TURBO 


OR022 




BUDGET FAMILIAL 


OR034 




BUSINESSMAN 


OR025 


* 


CHALLENGE VOILE 


OR026 


* 


CHALLENGER 


OR027 


* * * 


CHALLENGER REVERSI 


OR02B 




CHARACTER 


OR029 




CHESS 


OR032 


*** 


COBRA PINBALL 
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DEFENSE FORCE 
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ELECTRO STROM 

FLIPPER 

FRELON 
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GRAPHIX LORIGRAPH 
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ICE GIANT 

INITIATION C A O 

INVADERS 

KARATE 

KITECRAN 

LOGO 

LORITEL 

MACADAM BUMPER 

MASTER PAINT 

MEURTRE A GRANDE VITESSE 

MISSION DELTA 

MONITEUR DESSASEMBLEUR 

MS TEL JAASMIN 

MS-TEL SEDORIC 
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ORIC MON 

ORIC MUNCH 

R V DE LA TERREUR 

RAT SPLAT 

SECRET DU TOMBEAU 

STRESS 

SUPER JEEP 

SUPER METEORS 

SUPERCOPY 

TERMINUS 

TRIATHLON 

ULTIMA ZONE 
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ADAPTATEUR SOFTCARO 

ALIEN 8 

ANTARTIC ADVENTURE 

ATHELIC LAND 

BACKGAMMON 

BACKGAMMON SOFTCARD 

BATTLE OF MIDWAY 

BINARY LAND 

BLAGGER 

BOARD GAMES 1 

BOARDELLO 

BOOGABOO 

BOULDER DASH 

BOUNDER 

BUCK ROGERS 

CHACK N POP SOFTCARD 

CHACK'N POP 

CHOPLIFTER 

CHORO Q 

CHORO Q SOFTCARD 

CIRCUS CHARLIE 

CLASSIC ADVENTURE 

COMIC BAKERY 

COMPUTER HITS 6 

CONTRACT BRIDGE 
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DOG FIGHTER 

EDDY II 

ERIC AND THE FLOATERS 

FLIGHT DECK 

FLIGHT PATH 737 

FRIDAY THE 13 TH 
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GHOSTBUSTER 
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HOLE IN ONE 

HUNCHBACK 

HYPER SPORT I 
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SWEET ACORN SOFTCARD 

TAROT 

TENNIS 

TEX 

TEX 

JHE HOBBIT 

THE WRECK 
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TRACK AND FIELDS I 
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WAY OF THE TIGER 

XYLOLOG SOFTCARD 

XYZOLOG 

YIE AR KUNG FU 

ZAXXON 

ZOIDS 
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MICRO CARTOUCHES VIERGES 
POUR QL ET SPECTRUM 
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3 D MOVER 

3 WEEKS IN PARADISE 

4 mft PROTOCOLS 
AIR WOLF 
ALIEN 8 
ANDROID 

ARCADE HALL OF FAME 

ARCHON 

ARK PANDORA 

ART STUDIO 

ASTRO CLONE 

ATIC ATAC 

B C'S QUEST FOR TIRE 

BACK PACKERS 

BACK TO SKOLL 

BACK TO THE FUTURE 

BALLBLAZER 

BALLE DE MATCH 

BARRY MAC GUIGAN BOXING 

BATAILLE D ANGLETERRE 

BATAILLE POUR MIDWAY 

BATMAN 
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5M18 

SP022 
SP023 

SP024 
SP025 

SP026 
SP027 

SP028 
SP232 
SP029 
SP030 
SP031 

SP032 
SP033 

SP034 
5P035 
SP036 
SP037 

SP038 

SP039 

SP040 

SP04 

SP042 

SP043 

SP044 

SP045 

SP046 

SP047 

SP04B 

SP049 

SPOSO 

SP05 

SP052 

SP053 

SP054 

SP055 

SP056 

SP057 

SP05B 

SP059 

SPOSO 

SP06 

SP062 

SP063 

5P24 
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SP065 
SP066 
SP067 
SP068 
SP069 

SP070 

SP233 
SP071 

SP072 
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SP076 
SP074 
SP234 
SP075 
SP077 
SPOT'S 
SP079 
SP0B0 

spoei 

SP0B2 
5P083 
SP084 
SP065 
SP086 
SPOB7 
spoea 
SP069 
SP090 
SP091 
SP093 
SP093 
SP094 
SP095 
SP096 
SP097 
SP098 
SP099 
SP100 
SP10 
SP242 
SP103 
SP103 
SP104 
SP10S 
SPI06 
SP107 

srioa 

SP109 
SP230 

SPHO 

SP11 

SP112 

SP113 
SP1 



SP1 
SP235 

SP121 

SP122 
5P123 
SP124 
SP125 
SP126 
SP127 
SP128 
SP129 
SP130 

BP181 

SP132 
SP133 
5P134 

SP135 
SP136 
SPI37 
SP136 

SP139 

bPmo 

SPU1 
SPI42 

SP143 

5P144 
SP245 
SPI45 

SP'46 

SP147 

SPH8 
SP149 
SP150 
SP151 
SP152 
SP153 
SP154 
SP155 

SP156 
SP197 

SP158 



SP159 

SP160 



BATTLE OF THE PLANET 

BATTLE OF THE PLANET 

BEACH HEAD 

BEAR BOVVER 

BLADE RUNNER 

BLUE MAX 

BORED ON THE RING 

BOULDERDASH 

BOULDERDASH III 

BOUNTY BOB STRIKES BACK 

BRIDGE PLAYER 3 

BRUCE LEE 

BUCKS ROGERS 

CHESS THE TURK 

COMBAT LYNX 

COMMANDO 

COMPUTER HITS 10 

COMPUTER HITS 10 II 

CONFUZION 

CORN CROPPER 

COSMICS WAR TOADS 

CRITICAL MASS 

CROCKY 

DAILEY THOMSON DECATHLON 

DALLAS 

DAMBUSTERS 

DARK STAR 

DEATH WAKE 

DOOMS DARK REVENGE 

DUNDARACH 

DUNGEON ADVENTURE 

DYNAMITE DAN 

EDITOR ASSEMBLER 

ELITE 

EMERALD ISLE 

ENIGMA FORCE 

EVIL CROWN 

FAIR LIGHT 

FIGHTER PILOT 

FIGHTING WARRIOR 

FORBIDDEN PLANET 

FORMULA ONE 

FRANK BRUNO BOXING 

FRANK GOES TO HOLLYWOOOD 

FULL SCREEN EDIT/ASSEMBLEUR 

GALAXIANS 

GERRY THE GERM 

Gi-T FROM THE GODS 

GLADIATOR 

GLASS 

GO TO HELL 

GOONIES 

GREEN BERET 

GUNFRIGHT 

GYRON 

GYROSCOPE 

HER.O 

HACKER 

HEAVY ON THE MAGIC 

HERBERT'S DUMMY RUN 

HIGWAYY ENCOUNTER 

HOBBIT 

HULK 

HUNCHBACK 

HUNCHBACK II 

HYPERSPORTS 

ILE MAUDITE 

IMPOSSIBLE MISSION 

INTERCEPTEUR COBALT 

INTERNATIONAL KARATE 

JAWS 

JET SET WILLY 

JET SET WILLY II 

JEU DE DAMES 

JUGGERNAUT 

KNIGHT LORE 

KONG STRIKES BACK 

KOROTONI WILF 

LAZY JONES 

LODE RUNNER 

LOMBRICS 

LORDS OF MIDNIGHT 

LORDS OF THE RING 

LORIGRAPH 

MACADAM BUMPER 

MACHINE CODE TEST 

MANAGER 

MANDRAGORE 

MANIC MINER 

"~'"X MINER 

**.> DR GENIUS 

******* 

MASTT *R OF MAGIC 

MATCH DAY FOOTBALL 

MATCH POINT TENNIS 

MAX HEADROOM 

MEGAHITS 10 

METABOLIS 

MICRO OLYMPICS 

MICRO SCRABBLE 

MIKIE 

MINDSHADOW 

MISTER FREEZE 

MONOPOLY 

MOON CRESTA 

MORDONS QUEST 

MOVIE 

MUGSY 2 

MUGSY/HELLFIRE 

NO.M A.D 

NEVER ENDING STORY 

NICK FALDO GOLF 

NIGHT GUNNER 

NIGHTSHADE 

NODES OF YESOD 

NOW GAMES 

NOW GAMES II 

ON THE RUN 

ONE MAN AND HIS DROID 

ONE ON ONE 

PANIQUE 

PANZADROME 

PAWS 

PEDRO 

PING PONG 

POINTING JOE 

PRINT PLUS 

PROFANATION 

PROJECT FUTURE 

PSYCHEDELIA 

PSYTRON 

QUAZATRON 

RAID OVER MOSCOU 

RAMBO 

RASPUTIN 

REALM OF IMPOSSIBILITY 

RIDDLER 5 DEN 

RIVER RAID 

ROBIN OF SHERLOCK 

ROBIN OF SHERWOOD 

ROBIN OF THE WOOD 

ROCKY HORROR SHOW 

ROLAND S RAT RACE 

ROLLER COASTER 

RUNESTONE 

RUPPERT 

SABOTEUR 

SABRE WULF 

SCHIZOPHENIA 

SCUBA DIVE 

SHADOW OF THE UNICORN 

SHADOWFIRE 

SHERLOCK HOLMES 

SHOW JUMPING 

SIR FRED 

SIR LANCELOT 

SKYFOX 

SOFTWARE STAR 

SORCERY 

SORDERONS SHADOW 

SOULS OF DRACON 

SOUTHERN BELLE 

SPACr SHUTLE 

SPIDERMAN 

SPITFIRE 40 

SPORTS HERO 

SPY HUNTER 

SPY VS SPY 

STAR SEEKER 

STAR STRIKE 

STARBLITZ 

STARION 

STARQUAKE 

STEVE DAVIS SNOOKER 

STONKERS 
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MOM 
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815 TO7/70 
3 D KIT 
3D FIGHT 
)• AXE 
AFFAIRE VERA CRUZ 
AIGLE DOR 
AIR ATTACK 
ANDROIDES 
ANGLAIS I 
ANGLAIS 2 
ANGLAIS 3 
ANGLAIS 4 
ANGLAIS 5 
ANGLAIS 6 
ANGLAIS 7 
ANIMATIX 
ARSENE LAPIN 
ASS DES ASS 
ASTROCOUPLE 
ATLANTIS 
BEACH HEAD 
BIDUl 
BLITZ 

BUDGET FAMILIAL 
C A.O 

CARACTOR 2 
CARTE DE FRANCE 
CARTE DU CIEL 
CHALLENGE 
CHALLENGE VOILE 
CHATEAU DE LA MORT 
CHATEAU NOIR ET DRAGON 
CHOPLIFTER 
CHRISTANN 
COLISEUM 
COLORCALC 
COLORPAINT TO7/70 
eOtGRPM.AER^ 
CONTROLE A feR|(N 
COQINN 
CROCKY II 
DEBUG 

D1EUX DU STADE 
D1EUX DU STADE 
DIEUX DU STADE T09 
ECHECS 3.7 MOS 
ELIMINATOR 
EMPIRE 
EUROSPACE 

EXTRA MIS./USINE INFERN 
FBI 

FLIPPER II 
FOOTBALL 
FORTH 
FOX 
FULGUR 

GESTE D ARTILLAC 
GESTE D ARTILLAC T09 
GRAPHIQUES TO7/70 
GRAPHOLOGIE 
IL LINTRUS 
IMPERIALS 
JUDOKA 
KARATE 
KARATE 
KARATE T09 

LA MALEDICTION DE TAAR 
LAS VEGAS 
LAS VEGAS 
LAS VEGAS T09 
LASA 

LE MILLIONAIRE 
LORANN 
MANDRAGORE 
MANDRAGORE 
MANDRAGORE T09 
METEO 7 
MICRO SCRABBLE 
MICROSCILLO 
MINER 2049 
MINICALC 
MINOTAURE 
MISSION DELTA 
MISSION PAS POSSIBLE 
MONITEUR ODIN 
NUMERO 10 
OCEANIA 

OMEGA PLANETE INV T09 
OMEGA PLANETE INVISIBLE 
ORBITAL MISSION 
ORDINADOMI 
PILOT 
PINGO 

PLANETE INCONNUE 
POLYPHONIA TO7/70 
POP POP 
POSEIDON 
PRAXITELE TO7.-70 
PULSAR II 
RAID SUR TENERE 
REGATES 

RELANCE DISK TO7/70 
ROGER ET PAULO 
RUNWAY 
SAN PABLO 
SCAR FINGER 
SCRIPTOR T07 70 
SOL Ell NOIR 
SORTILEGES 
SPACE SHUTTLE 
STANLEY 

STATISTIQUES TO7/70 
STRESS 

SUPER JIMMIE 
SUPER TENNIS 
TABLO 5 MOS 
THESAURUS 
THOMCALC 
THRESHOLD 
TOP CHRONO 
VOL SOLO 
VOX MOS 
YETI 
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CIGARILLOS EXTRA-FINS 



AMSTRAD 

VENDS pour Amstrad 3D invaders, Match Day. 
World Cup : 50F piece. Gitles Laine, 6, chemin 
de la Montagne. 89113 Fleury-la-Vallee. Tel. (16) 
86 73 77 99. 

ECHANGE jeux Amstrad contre un Vectrex. 
Paolo au (1) 48 91 18 59. 

VENDS programmes originaux : Dams, 3D 
magacode. Macadam Bumper. Fire Ant Flight 
Path 737, Lorigraph, Amlettre, Master Chess. 
Vends Okimate 20 couleur avec Hardcopy. Tel. 
(1) 43 32 63 84. (NDUC : Le prix ? V'a qu'a 

t d t dp hon o r !) 

VENDS pour Amstrad 464. lecteur disquettes 
DDI-1 : 1200F. Tel. (1) 48 91 68 29 apres 20h 
et le week-end. 

ECHANGE nombreux softs sur Amstrad. 
demander liste. Specifier "echange Amstrad" 
sur courrier. Ecrire a Alain Schmidt, 2C allee du 
Pare, 57158 Montigny 

VENDS CPC 464 monochrome, Ires bon etat : 
2900F. Imprimante Brother M1009 : 1400F. 
interface peritel MP2 : 300F, souris : 450F, 
RS232C : 450F, magneto : 150F, joystick : 50F, 
disquettes, cables. Ivan Bonassin, 44. rue P.- 
Moral, 69008 Lyon. tel. (16) 78 75 58 14 

ECHANGE logiciels pour Amstrad sur disquet- 
tes. P. Laurent, 8. rue de Bruxelles, 25000 
Besancon. 

VENDS disquettes Maxwell. Amsoft vierges : 
40F piece. Vends originaux sur disquettes Com- 
mando, Who Dares Wins, Tennis 3D. Sorcery + , 
Ping Pong, Zaxx, Rambo et Commando sur K7. 
Vends les lOderniers CPC et Tilt. Cherche con- 
tact 5 pouces 1/4. Laurent Poulain, 14, rue de 
Cheverny, 45000 Orleans. 

ECHANGE toutes sortes de logiciels pour Ams- 
trad en K7 ou disk. Sytvain Blank:, 5, rue I.- 
Gautier. 92200 Neuilty. Tel. (1) 46 24 19 97 

ECHANGE nouveautes sur Amstrad K7 et disk. 
Recherche Loritel. Gille Le Bihan, Residence 
Clemenceau, allee des Flandres, 37000 Tours. 
ECHANGE logiciels sur Amstrad surtout des 
nouveautes. Cherche deuxieme lecteur disk 
pour 664 contre nombreux logiciels. Francois 
Branger. 11, rue Voltaire. 95120 Ermont. 

VENDS Amstrad CPC 464 couleur, poignee. 
jeux, programmes, utilitaires : 3300F. Christian 
Bouttier. 14. rue deGiraudon. 95200 Sarcelies. 

Tel. (1)39 90 79 9a 

Attention, accrochez-vous. je vends CPC 464, 
moniteur monochrome, manuel. 1er lecteur de 
disk, manuel, 2 joysticks, doubleur de joystick, 
livre "Micro-Application". 15 revues. 80 listings 
a taper, programmes, le tout 4500F. Tel. (16)88 
51 93 88. 

ECHANGE nombreux logiciels pour tout CPC 
sur disquettes dont beaucoup de nouveautes, 
contre divers uttlitaires, livres et revues pour 
Amstrad, imprimante, drive, modem, crayon 
optique, synthetiseur vocal, souris, Spirit, ordi- 
nateurde poche... Attends propositions au (16} 
74 73 76 06 demander Lionel. 

VENDS Amstrad CPC 464. moniteur couleur 
avec lecteur disquettes, housses, joystick, adap- 
tateur peritel, 24 disquettes, nombreux jeux et 
utilitaires sous garantie. livres et docs : 4900F. 
Mr Bachet, 4, bd de Provence, 91200 Athis 
Mons. Tel. (1)69 38 70 78. 

VENDS logiciels K7 pour Amstrad CPC 464 ori- 
ginaux, Raid, E Freddu, M. Bumper, Spy VS 
Spy, Ghostbuster. Tel. (1) 61 60 33 93 apres 
17h30. 

ACHETE lecteur disquettes 5"1/4 pour Ams- 
trad. Jean-Christophe Praud, 20, rue des Prime- 
veres, 85000 La Roche-sur-Yon. Tel. (16) 51 62 
57 91. 

ECHANGE logiciels sur Amstrad CPC 6128 sur 
disquettes seulement. Patrick au (16) 78 46 19 
91 a partirde 17h30. 

VENDS Amstrad 464 monochrome, jeux 
d'actions et d'aventures, manettes de jeux. 
S'adresser a Gilles au (1) 60 84 43 90. 

VENDS Amstrad CPC 6128 couleur, assem- 
bleur. CAO 3D. jeux, joystick, 2 livres, revues : 
4950F. Tel. (1)39 92 29 47. 

ECHANGE super programmes pour Amstrad 
6128 sur disquettes uniquement. Alexandre Del 
bes, Centre Vie-Rochambeau, BP08, 50115 
Cherbourg-Marol . 

ECHANGE nombreux jeux sur Amstrad 664 sur 
K7 ou disquettes. Christophe Boulanger, Les 
Hesperides, Bat 03, rue du Capitaine-Blazy, 
83600 Frejus. Tel. (16) 94 51 31 55. 

VENDS Amstrad 464, moniteur couleur. nom- 
breuses revues, nombreux jeux, le tout 3000F. 
Tel. (16) 35 36 06 02. 

VENDS 5000F Amstrad CPC 6128. lecteur disk, 
moniteur couleur, sous garantie avec notices et 
emballages. magneto Amstrad avec cordons, 
K7, disquettes, nombreux jeux, 50 revues sur 
Amstrad et un meuble informatique. Tel. (1) 48 
06 80 78 demander Noe 

ACHETE CPC664, magneto, logiciels. (aire 
offre. Vends CPC 464 vert, tres nombreux pro- 
grammes, le tout 2800F. Morad Hamdi, Les 
Negades, bat B3, 83300 Draguignan. NDUC . 
Our, je te dis bonjour, mais taut pas en profiter 
hem i Cost la demiere fois ) 

ECHANGE jeux en K7 pour Amstrad. Regis 
Caxiano, 10, allee de Derriere-les-Murs. 95400 
Vilhors-le-Bel Tel. (1) 39 92 08 49. 

ECHANGE logiciels pour CPC 464 et achete 
imprimante ou 1er lecteur de disquettes a 500 
ou 600F. Region parisienne pour echange de 
K7. Patrick au 47 22 02 43, 17h. 

VENDS Amstrad 464 vert, logiciets, adaptateur 
peritel. joystick mercure, manuel : 2500F. 
Patrick au (16) 60 28 22 23 apres 17h30. 



Amstradien driver, diskuterait avec similaires 
Eric Gamblin, 5, rue Cite-de-Limes. 76200 
Dieppe. 

ECHANGE K7 jeux pcur CPC 464, cherche 
DDL Mr Bouvier. route de Touiand. 07130 
Soyons 

VENDS Amstrad CPC 464 couleur. joystick, 
assembleur, nombreux logiciels et program- 
mes : 3500F. Mr Blanche! au (16) 93 75 70 00 
(Cannes). 

ECHANGE kxjictels sur Amstrad contre disquet- 
tes vierges, logiciels, notices, Hebdogiciel ou 
n'importe quoi. Echange uniquement sur dis- 
quettes. Demander Eric au (16) 74 97 18 44. 

VENDS jeux originaux sur K7 avec docs : 20F 
piece. Nicolas Hatton, 8, rue Clouets-des- 
Perruches, 49000 Angers 

CHERCHE lecteur de disquettes DOM pour 
CPC 464, jeux sur disquettes. Faire offre a Eric 
Aguirre. route Dous-Bos, 64600 Angtet. Tel. (16) 
59 52 40 12. 

VENDS moniteur monochrome Amstrad GT65 
neuf dans emballage d'origine ; 800F. Tel. (16) 
54 71 45 92 apres 18h. 

VENDS cause achat 6128. CPC 464 couleur, 
joystick Quickshot II, nombreux logiciels. nom- 
breux livres, grand nombre de listings ; 4500F 
a debattre. Bruno Sichi au (16) 65 34 07 81. 

VENDS CPC 464 couleur. nombreux jeux et uti- 
litaires, manettes. docs et livres : 3500F. Jac- 
ques au (1) 42 22 04 45. 

VENDS Amstrad 464, moniteur couleur, garan- 
tie avec joystick, un kigiciel, 6 jeux : 3500F. Tel. 
(1) 43 34 53 92. 

ECHANGE nombreux logiciels sur K7 pour CPC 
464 contre lecteur de disquettes ou modem. 
Bruno Malherbe, 2. rue du Bois. 62700 
Labuissiere. 

RECHERCHE Amstrad 464 avec moniteur 
monochrome, adaptateur peritel et manettes, 
imprimante ou moniteur couleur, faire offre 
separee au (16) 41 58 10 25. Mr Auplat, 3. 
square G.-Guittet, 49300 Cholet. 

VENDS CPC 464 couleur. lecteur de disquet- 
tes. housses. crayon optique, Quickshot II, 52 
logiciels originaux, 7 disquettes vterges. revues 
dont Firmware Specification. Le tout : 5000 F. 
Demander Pierre au (16) 91 50 08 82. 

ECHANGE jeux et utilitaires sur K7 ou disquet- 
tes pour Amstrad. Stephane Le Dren, 2. allee 
Victor-Hugo. 44116 VieHtevigne. Tel. (16) 40 02 

00 67. 

ECHANGE numeros revues Amstrad Magazine, 
CPC, Hebdogiciel. contre autres numeros de 
ces revues. Serge Espinasse, 196, rue Costa 
de-Beau regard, 73000 Chambery. Tel. (16) 79 
75 04 43. 

ECHANGE logiciels pour Amstrad 6128. Ecrire 
a J.-F. Aubron. 61. rue Brule-Maison. 59000 
Lille. 

ECHANGE nombreux logiciels sur disquettes 
pour Amstrad 6128. reponse assuree. Domini- 
que Lagrue. Le Petit-Buisson, 17460 Thenac. 

CHERCHE contacts Amstrad pour echange 
logiciels disks ou K7 sur region parisienne 
Demander Jer6me au (1) 39 68 21 17. 

ECHANGE logiciels pour Amstrad sur K7. Eric 
Denitte, 53, rue Riquet, 75019 Paris. 

ECHANGE logiciels de jeux sur K7 pour Ams- 
trad 464 Ludovic au (16) 21 98 92 39. 

VENDS K7 de jeux pour Amstrad originaux. 
Manic-Miner : 70F; Doppte Gancer : 70F. Frack 
Bruno Boxing : 90F, Diamant de I 'Tie maudite : 
150F, 5eme Axe: 150F. Lorigraphe : 150F. 
Bounty Bobstrikes Bik : 70F. Tel. (16) 73 24 75 

29 (Clermont-Ferrand). 

ECHANGE tres nombreux jeux et utilitaires sur 
Amstrad K7 et disquettes Yann Raissiguier, 16. 
rue Jean -Jaures. 38610 Cieres. Tel. (16) 76 44 

30 95. 

VENDS CPC 464 monochrome, peritel pour TV 
couleur, K7 jeux : 2500F. Claude Fessler, 6, rue 
Farges. 26200 Montelimar. Tel. (16) 75 54 49 
93 (laisser coordonnees). 

VENDS Dams disk : 300F, TransmatK7 : 100F. 
Lef Micro n° 12 a 29, haut-parteur, video. Vends 
logiciets originaux. liste sur demande. Michel 
Vernerey, 1 , rue des Oeillets, 681 20 

1 llzach-Hodenheim . 

VENDS Jump Jet disk original : 140F. Eric 
Peloille, 7, rue G.-Lelong, BP 727. 45307 Pithi- 
viers Cedex. 

VENDS CPC 464 moniteur, MP2, disquettes 
3390F. Mr Ludo au (1) ou (16) 30 S3 40 10. 

ECHANGE divers logiciels K7 ou disk. Cherche 
imprimante bas prix ou a echanger. Tel. (16) 76 
48 53 03. 

VENDS CPC 464 couleur, imprimante DMP100, 
rallonge moniteur, interface, 2 joysticks, nom- 
breux programmes. Le tout 5000F. Jean-Luc au 
(1)43 26 66 72. 

ECHANGE tous programmes sur disk pour 
Amstrad 6128. Cherche aussi plans de monta- 
ges divers sur cette machine. Alexandre Oelbes, 
16, rue Edouard-Maury, 94120 
Fontenay-sous-Bois. 

AMSTRAD CPC464, cherche photocopie du 
mode d'emploi de Transmat. Yves BakJeras, 20, 
rue Topaze, 41260 La Chaussee-Saint-Victor. 
Tel. (16)54 78 17 54. 

VENDS ou echange nombreux programmes ori- 
ginaux pour CPC 464. Christophe au (16) 94 91 
50 60. 

ECHANGE logiciels sur K7 ou disquettes pour 
Amstrad. Recherche egalement docs de toute 
sorte. Willy Morelle, 14. rue du General-Lecterc, 
02830 Saint-Michel. 

VENDS Amstrad CPC 464 monochrome, adap- 
tateur peritel. imprimante DMP1 , joystick JY2, 
jeux, programmes et magazines Amstrad : 
4000F. Stephane au (16) 51 39 18 90. 

VENDS Amstrad CPC 464 couleur, joystick, 
logiciels : 3100F Tel. (1) 60 84 71 04. 

VENDS 100 logiciels originaux Amstrad 20F 
piece. Cherche Orphee, Mac Guigan Boxing, 3D 
Boxing, 30 Stunt Rider, Dun Darach, Rambo, 
Harrier Hattack, Bad Max, Dark Star. Raid Over 
Moscou. Tel. (16) 40 01 96 33. (Loire-Atlantique). 

En vue de creer un club Amstrad a Angers, je 
propose a toutes les personnes interessees de 
m ' eenre pour donner des idees. Thierry Boulay, 
32, chemin de Nozay, 49100 Angers. 

Pluto! qu'un 464 avec drive, achetez done mon 
664 monochrome garanti jusqu'a aout pour 
2990F. Philippe au (1) 45 88 16 86. 

VENDS Amstrad 464 monochrome, lecteur dis- 
quettes, nombreux logiciels de jeux et utilitai- 
res, joystick, livres et revues, le tout en tres bon 
etat : 3500F a debattre. Jean-Paul Devulder, 1 1 , 
rue Emest-Renan. 93200 St-Denis ?. Tel. (1) 42 
43 68 30. 

ECHANGE pour CPC 464 nombreux logiciels 
sur cassettes ou disquettes. Bruno Elbaze. 73, 
avenue Henri-Barbusse, 93220 Gagny. 

ECHANGE nombreux logiciels pour 464, 664 ou 
6128. disk ou K7. Ecrire a Francois Ferrarri. 7, 
rue du Stade, 80132 Cambron. tel. (16) 22 24 
54 86 le samedi apres 20h ot le dimanche toute 
la journee. 

VENDS jeux originaux moitie prix, Who Dares 
Wins II et Infernal Runner. Richard Peyre, 13, 
rue du Marechal-Foch, 87100 Limoges 



VENDS nombreux logtciels originaux pour Ams- 
trad CPC 464. 664 et 6128 sur K7 ou disquet- 
tes Possibilite d'avoir liste sur demande a Ste- 
phane Clot-Giral, 29, rue Alquier-Bouffard, 
81100 Castres. (NDUC Dis-donc tot, t'es un 
p'tit matin, hem ! T'en a envoye au moins 10 des 
PA, et les mimes en plus. Mais voila, la Cla- 
viste Foile etait la. et elle s 'en est apercu, hihi ! f) 



APPLE 

ECHANGE softs recents sur Apple Demander 
liste Specifier "echange Apple" sur courrier. 
Ecrire a Alain Schmidt, 2c allee du pare, 571 58 
Montigny 

VENDS Apple lie. ecran. souris. Mouse Desk : 
8500F. Imprimante Image Writer : 4300F Drive 
Apple lie (Gamma Me) : 1200F. Le tout sous 
garantie Tel (1) 47 05 68 02 a pans de 15h, 
demander Mr Ouevauvilliers. 

VENDS Apple lie avec moniteur monochrome, 
moniteur couleur Taxan Vision II, drive externe, 
souris, 3 joysticks, nombreux programmes : 
11.900F. Eric Simon, 117, avenue de la Drvision- 
Lecterc. 93350 Le Bourget. Tel (1) 48 38 45 95. 

Vous voulez vendre ou acheter un Apple 
d'occase, alors ne perder plus une seconde 
(une minute au plus pour les paresseux), 
telephonez-moi au (1) 34 73 97 42 du lundi au 
vendredi entre 17h et 19h et le mercredi de 14 
a I9h. Vous serez immediatement en contact 
avec d'autres personnes si vous demandez 
Regis. (NDUC : Quoi ? Si on demande Regis, 
on a d'autres personnes ? Ou'est-ce que e'est 
kse true la, encore ? Alors demandez d'autres 
personnes, vous aurez surement Regis, on sait 
jamais !). 

VENDS Apple lie, lecteur disquettes externe, 
moniteur lie, moniteur couleur, joystick, souris, 
nombreux programmes jeux et utilitaires sur dis- 
quettes (NDUC : Evidemment sur disquettes, 
t'as d'ja vu un apple avec un magneto toi, 
dukon ?) une bibliotheque importante sur Apple 
lie. Jean-Marc Rocca Serra au (16) 44 42 83 23. 

Bon. z'etes durs en affaire... Un Apple lie tout 
beau avec pleins de programmes, de souris, de 
joysticks, de docs et tout et tout a 7500F, ca 
allait pas ? D'accord, et a 6500F, e'est mieux ? 
Et si personne n'en veut a ce prix-la, ce sera 
au plus offrant. Re-voici mes coordonnees. 
Francis Sptesser, 16, rue Nansouty, 75014 Paris 
au (1) 45 89 16 32 le son (je bosse, moi !) Ah 
oui ! Les membres du Club HHHHebdo, pour 
eux, ce sera 6501F et puis e'est tout... (NDUC . 
Comment tu connais mon pninom. toi ? Et pour 
moi, e'est combien ?). 

CHERCHE contacts pour echanger des pro- 
grammes recents sur Apple He. tel. (16) 47 66 
23 20 apres 19h. 



ATARI ST cherche contacts pour echange 
divers Thierry Danquin. chemin de I'Engluche- 
rie, 49500 Segre 

VENDS Atari 800XL, 1010. Quickshot IX, 2 
manettes Atari. Donkey Kong cartouche, 4 K7 
originates Bruce Lee, Blue Max. Decathlon, Pole 
Position. Tout sous garantie, prix a debattre. Tel. 
(16) 78 50 44 63. 

Stop Affaire ! Vends Atari 800XL, nombreuses 
cartouches (Pitfall, Pole Position, Moon 
Patrol...), livres d'initiation, tous les numeros de 
I'Atarien, lecteur de disquettes, Flight Simula- 
tor II (disk) ; 3000F. Yann Ricquebourg. Rosper- 
nes Redene, 29130 Quimperle. Tel. (16) 98 96 
22 35. 

VENDS pour Atari 600-800XL et 130 XE nom- 
breux jeux parmi les meilleurs, au prix excep- 
tionnel de 25F piece (originaux). Possibilite prix 
de gros. Serieux garanti. liste sur demande 
Contacter Jean-David Bickel. Clos des Rainet- 
tes, 57510 Heckenransbach. 

Atari 520ST ayant grand faim, cherche a se met- 
tre sous la dent tout programme surtout des 
jeux. Jean-Marc au (1) 42 28 22 04 apres 19h. 
(NDUC : Comment bonjour a Boris ? D'abord, 
c 'est a moi, qu 'il taut dire bonjour, et puis Boris 
c 'est un ignoble personnage, alors, taut pas lui 
dire bonjour, OK ?) 

CHERCHE bidouilles des meilleurs logiciels 
pour Atari 800XL. Olivier au (16) 21 82 03 36, 
le samedi. 

RECHERCHE en vue d'echanges. tout logiciel 
pour Atari 800XL sur K7. plus particulierement 
Halker. echange avantageux pour le dernier. 
Thomas Duriez, 45, rue G.-Dron, 59240 
Armentieres. 



COMMODORE 

ECHANGE ou achete jeux sur Commodore 64, 
Bruno au (16) 31 97 09 33 apres 19h. 

VENDS pour Commodore lecteur K7 1530 
150F, Vic 20 NB : 350F. cartouches pour Vic 
20 : Lode Runner : 100F, Cosmic Cruncher : 
40F, 9 livres pour Vic20 de 1a a 70F, 7 premiers 
numeros de Commodore magazine : 10F piece. 
Richard Lesourd, Le Deschaux. 39120 Chaus- 
sin, tel. (16) 84 81 72 03. 

ACHETE 1 54 1 . 1 570 ou 1 571 a bas prix, cher- 
che livre pour apprendre le basic et le langage 
machine, ou K7 et cherche pour 128, Spy US 
Spy, Ptsop; F. Apocalypse, Beach Head, Lord 
of the Rings ou tout autre jeux de role, Warga- 
mes, sur CBM64/128 et trues, marc Decobert, 
966, chemin des Ames du Purgatoire, 06600 
Antibes. Tel. (16) 93 33 09 19. 

Jeune graphiste sur CBM64 et 1 28 cherche per- 
sonnes. groupes ou autres, en vue de creer 
jeux. Francois Rimasson. "La Fonderie". 35170 
Bruz. Tel. (16) 99 52 93 96 

ECHANGE jeux sur C64, sur disquettes contre 
originaux. Cherche notice de Elite, Scarabeus, 
Temple of Asphai et autres. Recherche per- 
sonne possedant Hacker. Francois Rimasson, 
"La Fonderie, 35170 Bruz. Tel. (16) 99 5293 96. 

ECHANGE pour CBM64, 1541 , nombreux jeux 
Cherche nouveautes, reponse assuree. Cedric 
Le Dressay, 13. Hjaltlands Gate, 4000 Stavan- 
ger, Norvege. 

ECHANGE programmes sur C64, 1541. Cher- 
che nouveautes. Francis Marcon, batiment 
Opale. Appt 62. Mouzimpre, 54270 
Essey-les-Nancy. 

VENDS Commodore 64, lecteur de disquettes 
1541, magneto K7, cartouches jeux. K7 origi- 
nates de jeux. livre d'initiation, I'ensemble : 
3000F. Laurent Boudet, 7, lotissement du 
Rumeriou, 29130 Baye-Quimperle. 

VENDS Commodore 64 Pal, lecteur K7, drive 
1541 , imprimante MPS803, plein de livres et de 
programmes : SOOOF. Richard au (16) 20 06 09 
96 apres 19h (NDUC : C'est pas la peine de 
nous lancer des fleurs pour qu'on passe 
I'annonce. De toutes facons. moi j'prdfere les 
injures, alors....) 

VENDS Commodore 64, moniteur monoch- 
rome, lecteur de K7, manette de jeux. cables. 
super programmes : 3200F a debattre. Deman- 
der Arnaud au (1) 46 31 71 39. 

VENDS clavier 4 couleurs Wersiboard Sola- 
sound pour Commodore 64 et 128, programme 
Wersi sur K7 et disk pour faire marcher le tout. 
Se branche sur le cartridge port ; 1300F. Pas- 
cal au (1) 34 13 76 32 de 18h a 20h. 



VENDS tablette graphique pour Commodore 
64 : 350F Echange jeux sur K7 ou disquettes 
pour C64. JC Alvarez, 37, avenue Miss-Cavell, 
94100 St-Maur 

VENDS Vic 20. magneto. 10 cartouches, carte 
mere 30Ko. ext. 8K et 16K, autoformation au 
basic, 100 ROMs et nombreux jeux sur K7 Le 
tout 3900F Echange aussi programmes pour 
CBM64 sur K7. Faire offre a Jerome Bugara, 
335. Lorraine I Kellerman, 88100 St-Die Tel. 
(16) 29 55 17 38. 

VENDS Commodore 64 Pal, lecteur K7, lecteur 
disk 1541, nombreux programmes, 10 livres, 
docs et listings divers : 4000F. Tel. (1) 43 39 25 
68 le soir. 

ECHANGE nombreux logiciels sur K7 ou dis- 
quettes tres recents pour C64. David au (16) 56 
80 59 43. 

VENDS logiciels sur K7 ou disquettes ainsi que 
livres pour Commodore 64 Tel (16)41 87 1237 

VENDS 23 jeux originaux, chargeur UHrarapide 
(10 tois plus) : 60 F. Tel. (16) 23 83 27 85 apres 
18h. 

ECHANGE toute nouveaute avec notices sur 
CBM64. Stephane Rutkowski, 7. rue Jean 
Froissart, 80000 Amiens. 

ECHANGE nombreux logiciels en C64. Cherche 
programmes en C128. Frederic Lepetit, 4, rue 
Daniel-Sorano, 76800 St-Etienne-du-Rouvray 
Tel (16) 35 66 74 82. 

VENDS pour C64 Ultima II. doc Baltic 85, doc 
Fighter Command et 2 autres Wargames. Yann 
Schuster, 47, avenue Mathurin-Moreau. 75019 
Paris. Tel. (1)42 38 10 41. 

ECHANGE programmes uniquement sur disks 
pour Commodore 64. Pierre Conche. 1, rue de 
Kichheim. 67200 Strasbourg-Montagne-Verte. 
Tel. (16) 88 76 03 60 apres 19h. 

Avis au fanas du C64. J'echange de nombreux 
logiciels et recherche desesperement des nou- 
veautes sur K7. Vends autoformation, 2 K7, un 
manche a balai. Echange ou vends K7 origina- 
tes Skyfox. The Way of the Exploding, Caul- 
dron... Laurent Reimat, Le Courbas, 09120 
Varilhes. Tel. (16) 61 68 04 89 apres 18h. 

VENDS Commodore 64. drives 1541, nombreux 
jeux, livre de programmation : 3200F. ou Com- 
modore 64. magneto ; 1600F Tel. (16)61 73 01 
34. 



CHERCHE carte memoire maitresse Vic 1020 : 
400F maximum Cherche trues, astuces et 
documentations sur le Vic 20. Davy Courvoisier. 
Les Vies-de-Bale, 188. 2942 Aiie, Suisse 
VENDS C64 Pal/Secam. lecteur K7 C2N |oys 
tick Quickshot II. jeux. livres programmation 
pour C64, 5 K7 vierges, le tout 2800F a debat- 
tre Tel (16) 78 27 13 60 apres 20h, demander 

Franck. 

VENDS C128. 1541. nombreux logiciels. nom- 
breux accessoires. sous garantie ; 4500F. 
Demander Didier au (1) 43 60 82 67 



MSX 

VENDS Canon V20 MSX, moniteur orange HR 
Philips, magneto Sony SDC-500. toul en tres 
bon etat avec manuels, manettes Yeno. nom- 
breux jeux dont des inedits, cables peritel et 
magneto, livres et revues, boite de rangement 
K7 Le tout 3400F Philippe au (1) 45 75 08 15 
avant 21 h. 

CHERCHE contact MSX pour achat logiciels sur 
K7 ou cartouches Echange idees Tel. (16) 22 
31 28 39 

VENDS ensemble MSX-1 complet : Canon V20 
64K, lecteur disque Canon VF-100 3"1/2 720K, 
imprimante Smrth-Coron.a F80, magneto, livres, 
tres nombreux programes jeux, utilitaires, com- 
pilateurs, professionnels : 12000F ou 10 000F 
sans imprimante Christian au (1) 63 07 55 71 . 

ECHANGE logiciels pour MSX "Blagger contre 
Bagammon. Choro Q, Flight Path Anirog, Red 
Moon, Super Chess ou Xyzolog et Buck Rogers 
conre ZoTds, Boulder dash, Illusions, North Sea 
Helicopter, Past Finder, Sorcery ou Zaxxon. 
Christophe Grosbon, Salans, 39700 Orchamps. 
Tel. (16) 84 71 14 49 entre 19h15 et 21h30. 



VENDS Mathegraph, disquette originate. Pos- 
sibilite echange contre Ampli-bus. Tel. (16) 73 
38 65 42 le soir. 

VENDS One Atmos, moniteur mono tres bon 
etat, magneto theoric, manuels, cassettes de 
jeux originaux, prix a debattre. Vincent au (1) 
46 78 01 29. 




VENDS pour C64 originaux : Bomb Jack (K7). 
Titanic, Field of Fire. War Play, Baltic 85, Uri- 
dium (K7), Ultima 4 (avec docs). Lazerian (cart.). 
Yann au (1) 42 38 10 41. 

ECHANGE programmes pour C64 avec drive 
1541. Possede jeux, utilitaires, langages, nou- 
veautes... Demander Florent au (16) 96 44 07 
91 ou envoyer listes a Florent Legeron. 1 1 , rue 
Frederic-Jegat. 56610 Arradon. 
ECHANGE programmes pour C64 sur disquet- 
tes. Tel. (16) 67 94 04 86 apres 18h. demander 
Thierry. 

VENDS programmes originaux sur K7 ou dis- 
quettes pour C64. Livres nombreux a saisir 
cause changement de materiel. Tel. (16) 53 97 
31 19 le soir 19h. 

ACHETE C64Secam, lecteur disquettes 1541, 
pas trop cher. Tel. (16) 94 21 41 34. 

ECHANGE pour C64 K7. Mandragore. Combat 
Leader, Zenji; Ghostbuster Tel. (1) 64 02 89 33. 

ECHANGE jeux sur K7 pour C64 Cherche aussi 
nouveautes sur K7. Tel. (16) 57 51 63 10. 

VENDS C64 avec prise peritel, magneto, joys- 
tick, livres. nombreux logiciels jeux et utilitaJres : 
2000F Frederic Woiltock, 38, rue des Moulins. 
22520 Binie. Tel. (16) 96 73 75 86 

ECHANGE programmes pourC64 uniquement 
sur disk 1541 . Envoyer liste a Chantal Vuiltemin, 
40, rue des Fougeres, 25000 Besancon. Tel. 
(16) 81 50 56 90. 

VENDS divers jeux pour Commodore 64. origi- 
naux Frederic Baranger. Cote du Clapier a Vil- 
lette. 78930 Guerville. 

VENDS Commodore 64, unite disquette. lecteur 
K7, moniteur Philips monochrome, 3 joysticks, 
nombreux logiciels, logiciels sur cartouches. 3 
boites de disquettes vierges, te tout 4500F Lau- 
rent Lhuillier au (1) 45 23 53 21. 

ACHETE moniteur N/B. 12". vert ouambre pour 
brancher Commodore 64. A. Vignaud au (1) 34 
51 06 86 

VENDS imprimante pour C64/128; MPS803 
avec listing. Keu au (1) 45 84 74 89 apres 19h : 
1200F. Sous garantie. 

ECHANGE programmes pour C128 et C64 sur 
disk uniquement. Cherche nouveautes. Ste- 
phane Assael, 397, Corniche-Kennedy, 13007 
Marseille. Tel. (16)91 22 11 01. 

VENDS pour C64 lot de 1 1 K7 originates : Raid 
Over Moscou, Impossible Mission, Super 
Zaxxon, Blue Masc. Blue Masc 2001. Falcon II, 
Wild Kong, Decathlon. Rescue on Fractalus, 
Jump Jet et Spitfire Ace. le tout 1000F. Jose 
Krolski, 12, rue de Fondues, 62620 Barlin. 

VENDS pour 064 originaux. Green Berets, War 
Plau, Ultima 4, docs, Field of Fire, Cauldron II 
Yann au (1) 42 38 10 41. 

VENDS Scramble 64 pour Commodore 64 : 60F 
ou echange contre Pole Position. Vends Place- 
ment d'Epargne pour C64 : 60F, Paint Pic 64 : 
60F. Laurent Fournier, 8/7 rue Beaumarchais, 
59000 Lille. Tel. (16) 20 88 11 30. 

VENDS CBM64, 1530. drive 1541 sous garan- 
tie, K7, 800 cartouches, livres, revues, disquet- 
tes, K7, manettes : 5500F a debattre. Tel. (1) 48 
68 18 16. 

VENDS jeux originaux sur C64 sur K7 ou dis- 
quettes. Echange jeux sur disquettes pour C64. 
Franck Ricci, 4, allee des Rosters. 55100 Ver- 
dun. Tel. (16) 23 84 40 06 apres 18h. 

CHERCHE lecteur de disquettes 1541 pas cher 
(moins de 1 000F) encore sous garantie pour fon- 
der un petit club entre amis. Ecrire a Olivier 
Pigeat, 16, chemin des Vignes. 78900 Elancourt 
ou Tel. (1) 30 50 43 69 entre 18h et 20h30. 



VENDS Oric Atmos 48K avec K7 originates £ 
nombruex jeux, livres : 520F. Demander Pas- 
cal au (1)43 72 37 26. 

VENDS Atmos, interface, manette, methode, 
adaptateur peritel. 6 jeux, transformateur. Theo- 
ric : 1550F. Demander Denis au (16) 92 20 17 
87 heures des repas. 

VENDS programmes personnels sur Atmos : 
Hardcopy sur fastext 80, Logo, dessin anime, 
jaquette, frand ecran... sur K7. Realise aussi 
tout travaux sur imprimante a tres bas prix. 
Bruno Bouchaud, 24, rue de Vouneuil. 86000 
Poitiers. 



SPECTRUM 

VENDS neuf, sous garantie. ordinateur ZX 
Spectrum + , 48K avec prise peritel, interface 
Turbo, 28 jeux dont un microdrive et les autres 
en K7 : 2000F. Nicolas au (1 ) 42 06 73 44 apres 
18h. 

CHERCHE pour Spectrum, Boulder Dash III, 
imprimante Sinclair pour 400F, ZX1 , microdrive 
pour 400F, interface III pour 300F. Echangerais 
aussi volontiers divers jeux. Fabrice Nghien, 3, 
rue Jacquemont, 7501 7 Paris. Tel. (1 )42 28 66 
29. 

CHERCHE contact pour echange de logiciels 
sur Spectrum, cherche notice de basic etendue 
et White Lighting. Carlos Frutuoso, 42, rue de 
la Jonquiere, 75017 Paris 

VENDS ordinateur Sinclair ZX Spectrum 16K, 
magneto, 5 K7, adaptation peritel, nombreux 
livres de programmation avec docs : 2000F. 
David Gin, 23, impasse de la Vallee-Henot, 
62224 Enquhien. Tel. (16) 21 92 03 98. 

VENDS Spectrum 46K, peritel, mod. NB, lecteur 
K7, interface et manette jeux, nombreux livres 
et logiciels sur K7 : 1800F. Tel. (1) 39 51 11 81 
apres 20h. 

Transformez votre Spectrum 16Ko en Spectrum 
48Ko. Vends kit 32Ko prix sacrifie, 300F. Jean- 
Marc au (16) 80 66 73 75 apres 18h. 

ECHANGE logiciels pour Spectrum, contacter 
Arnaud Laurent au (1) 43 24 14 96. 



TEXAS 

VENDS pour Texas : Parsec ; 1 50F, Pole Posi- 
tion : 150F, Burgertime : 150F, Cars Wars: 
100F, un livre et 3 K7 de jeux pour chaque 
module vendu Gilles Laine, 6. chemin de la 
Montagne. 891 13 Fleury-la-Vallee Tel. (16) 86 
73 77 99. 

Pour 3000F vends Ti99/4A avec peritel, mini K7. 
joystick, extension memoire 32K, mini memory, 
basic etendu, te tout avec cordons et notices, 
11 "Tr99 Magazine", 11 K7 d'accompagnement 
de Ti99 Magazine, divers K7, divers livres dont 
"Initiation au langage assembleur". Tel. (16) 59 
34 44 33 tous les jours sauf du 10 au 25 juin. 

Je travail sur un Ti99/4A et n'ai pas beaucoup 
d'argent. Si vous avez des programmes ou 
accessoires gratuits ou a petit prix, en bon etat 
si possible, ils seront les bienvenus. (Possibi- 
lite d'echange de programmes en BE, BS ou 
assembleur). Faire offre a Frank Harmant, 3. 
allee Paul-Gauguin, 13880 Velaux. Tel. (16) 42 
87 98 47. 

VENDS pour Ti99/4A 11 cartouches Parsec, 
Treasure Island. Football, Pole Position, Munch 
Man, Burger Time, The Attack, Star Strek, Hap- 
per et Moon Mine. Le tout 1600F. Je donne en 
plus, le cordon magneto, des livres et des jeux 
sur K7 ainsi que les 2 manettes. Ecrire a J.-M. 
Charpentier, 12, rue de Rion, 54140 Joinville. 
Tel (16) 83 54 41 52. 



VENDS TI99/4A : 500F Vends BE docs en tran- 
cais. K7 jeux, te tout 500F. Vends moniteur vert 
avec emballage. cordons : 550F Tel. (1) 45 43 
14 45 apres 18h 

VENDS modules pour TI99/4A : Echecs : 500F, 
Pole Position : 200F, X-Basic : 600F Vends 
egalement quelques numeros de 99 Magazine, 
plans adaptateurs pour brancher toutes manet- 
tes sur le Texas . 10F. Marc au (1)48 41 65 44. 



THOMSON 

VENDS TO7/70 sous garantie, logiciels, livres, 
le loul 5000F. Tel (1) 47 72 11 69 heures 
bureau, demander Mme Dubessel ou (1) 47 21 
45 43 entre 16 et 19h, demander Jean-Claude 
ou laisser message 

VENDS M05, magneto, manette, extension, 
jeux. manuel ; 2500F Tel. (16) 40 27 33 72 heu- 
res repas 

VENDS Thomson T07, cartouche basic, lecteur 
K7. extension 16Ko, livres. revues, 2 cartouches 
Trap. Pictor, supers jeux : 3000F port compris. 
Francois au (1)48 96 69 15 ou (1) 48 96 43 05 
apres 18h. 

ECHANGE jeux sur TO7/70 ou T07. Cherche 
Omega Planete invisible. Animatix. La Geste 
d'Artillac et Scar Finger Christophe Com- 
menge, 11, impasse Baudelaire, 31700 Bla- 
gnac. Tel. (16) 61 71 17 51. 

CHERCHE possesseur MOS pour echange jeux 
divers. Philippe au (16) 88 80 48 25. 

VENDS M05 sous garantie, guide, extension 
manettes et jeux, magneto M05, crayon opti- 
que, K7 de jeux, moniteur monochrome, ensem- 
ble ou separes, prix a debattre Tel. (16) 76 65 
60 89 a partir de I8h 

VENDS T07, lecteur K7, extension 16K. exten- 
sion manette et une paire de manettes, nom- 
breux logiciels, et 5 livres d'initiation au basic, 
le tout SOOOF a debattre. Tel. (1) 46 78 03 36 
a partir de 17h30 mais pas le mardi et le ven- 
dredi, demander Carlos. 

ECHANGE M05. tecteur de K7. 15 logiciels. 500 
francs, contre Commodore 128 en bon etat 
Steeve Levy au (1) 42 78 58 30. 

ECHANGE logiciels pour M05. Franck au (16) 

68 39 61 01 . 

Thomson M05, cherche contacts en vue 
d'echange de logiciels, ecrire a Raiganti Ste- 
phane, la Pierre-Plantee, Nohhac, 43350 Saint- 
Paulien. Tel. (16) 71 00 47 56. 

VENDS M05, lecteur de K7 : 2000F, nombreux 
logiciels et livres : 100F piece. Dominique Pot, 
7, rue Thiers. 76160 Darnetal. 

ECHANGE jeu Politik Poker (original) contre 
manuei de reference T07 + 16K ou contre The- 
saurus. Super Tennis. B. Charignon, 46, rue J - 
Recamier, 69006 Lyon. 

VENDS Micro ordinateur T07, extension 
memoire 16K le tout 1000F. Martin Bruchlen, 
112, rue de Gatfingue, 68720 Spechbach-le- 
Haut. Tel. (16) 89 07 07 08 apres 19h. 

ECHANGE ou vends, logiciels originaux pour 
TO7/70, cartouche Airbus : 450F, K7 Minau- 
tore : 120F, Mission pas possible : 150F, SOS 
Space : 180F, 5emeAxe : 150F, 3D Sub : 115F, 
Torann : 115F, Dianne : 115F, ou letout 1200F. 
Contacter Herve Deschamps, Toussaint. 14, rue 
de I'Eglise, 76400 Fecamp. Tel (16) 35 28 07 79. 



VENDS ZX81 . 1 6Ko. cables, clavier ABS, logi- 
ciel : 350F Ivan Bonassin, 44, rue P.-Morat, 
69008 Lyon Tel. (16) 78 75 58 14. 

DIVERS 

VENDS VG5000 Radiola. 24Ko Ram, 18Ko 
Rom. peritel. cordons : 500F. Vends cassette 
Mission Omega, K7 DAO : SOF ou le tout ': 540F 
Elian Baena, 27, lot Puech-du-Four, 3460O 
Bedarieux tel. (16) 67 23 06 44. 

CHERCHE Canonier (Canon X07, evidemment) 
pour contact divers, echange idees et trues. Je 
possede pas mal d'adresse du 2° microproces- 
seur. Cherche traitement de texte, gestion de 
fichiers et autres utilitaires ou jeux. Cherche 
aussi un true pour rallonger mon Canon de pre- 
ference un 16Ko, le plus long possible quoi ! ! ! 
Pas trop cher vers les 400F. Contacter Sony au 
(16) 45 61 50 34 ou (16) 45 61 19 00 
(Angouleme) 

VENDS PB 700 Casio avec manuel : 900F ou 
echange contre Sharp PC1500. Echange T07 
avec cartouche basic, livre et datarecorder, le 
tout en bon etat contre Sharp PC 1500 ou tout 
autre pocket programmable en L.M. Contacter 
Sony au (16) 45 61 50 34 ou (16)45 61 19 00 

VENDS imprimante MCP40. tres bon etat avec 
stylo et papier neuf. copie d'ecran, cordon : 
850F a debattre. Vincent au (1) 46 78 01 29 
apres 19h. 

VENDS Orgue Casio 20 sonorites. stereo. 12 
rythmes, avec pieds support : 6000F. Tel. (1) 47 
72 11 60 heures bureau, demander Mme 
Dubesset ou (1) 47 21 45 43 entre 16 et 19h, 
demander Jean-Claude ou laisser message. 

CHERCHE pour Atan ST, imprimante matricielle 
a bon marche, munie d'une interface Cntronics : 
Epson LX80, Seikosha 1000A, Star SG-10, 
Smith Corona D200/D300. Contacter Thierry au 
(16)41 61 00 94 
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EDITO 



Malgre les vehementes protestations 
du Front National, SOS Racisme est 
parvenu a conserver sa subvention 
Les Potes nous convient done a une 
nouvelle fete pop (dans tous les sens 
du terme) et de toutes les couleurs 
Le 14 juin, Paris leur a accorde la 
Place de la Bastille de 20h a 2h du 
matin. Comme a la Concorde et au 
Bourget, on y verra un defile de stars, 
parmi lesquelles sont deja annonces. 
Bronsky Beat, The Communards, UB 
40 et de nombreux autres. 
La fete sera gratuite, comme les pre- 
cedentes et on y dansera sur tous les 
rythmes. 

BEN 




POGUES 



inious. bombardes, flu- 

DN tiaux, tambours, violons, 
) accordeons, voix imbi- 
•^ bees a reprendre en 
D] choeur, rev'la les "saltim- 
J banques", leurs fausses 
S chansons de marins, leurs 
gigues a danser punk, leur accent a cou- 
per au couteau et leur determination a 
planter le foutoir dans toutes les cambu- 
ses a musique ou ils posent leurs sacs 
pour un soir. Apres sa triste mesaventure 
avec le taxi londonien qui lui a roule des- 
sus, Shane McGowan (les mauvaises lan- 
gues pretendent qu'on lui a recousu la 
bouche en forme de goulot) reprend le col- 
lier a la tete de ses sept acolytes, bouclant 



OEV/^fl; 






un tour de France en huit dates de con- 
certs. II faut battre le fan tant qu'il est 
chaud, tant qu'il demande "Rum Sodomy 
& the Lash" (du rhum, de la sodomie et 
le fouet) ! Comme vous le savez sans 
doute, les Pogues ont constitue la "big" 
sensation britannique de I'an 85. A leur 
sujet, on a agite la vieille defroque fanto- 
matique des Sex Pistols, comparant leur 
impact a celui des premiers punks En fait. 



a I'ecoute de sa musique, ce gang d'lrlan- 
dais excelle surtout dans Interpretation et 
la readaptation des airs traditionnels de 
I'Eire. A ceci pres que les paroles de 
McGowan evoquent plus precisement la 
realite des momes des rues, au present, 
sous la botte de Thatcher. 
A vrai dire, les Pogues sont une piece 
indispensable du puzzle de styles 
qu'englobe la musique populaire anglaise. 
Peut-etre vous souvenez-vous de la vogue 
du ska qui eclatait en 1 980 avec des grou- 
pes comme Madness, Special, Selec- 
ter ?... Precurseur du reggae dans les 
annees 60, le ska s'etait repandu en Angle- 
terre a partir des ghettos jamalcains, avant 
d'etre elu par les premiers skin-heads 
comme leur musique de predilection. 
Musique a caractere traditionnel, extreme- 
ment entratnante et dansante, prenant 
pour themes de base la lutte sociale des 
plus defavorises, le ska cadrait parfaite- 
ment avec le contexte socio-politique de 
I'epoque, son gouvernement democrate et 
ses flambees raciales. De meme, I'avene- 
ment des Pogues et de leur musique tra- 
ditionnelle irlandaise paratt comme I'anti- 
reflet de I'Angleterre conservatrice de 
Thatcher. Depuis la grande vague folklo- 
rique post-hippie, la musique celtique n'a 
pratiquement hen perdu de la vitalite dont 
la scene pop lui avait fait beneficier, vers 
la fin des annees 60. Elle a simplement dis- 
paru aux yeux du grand public en organi- 
sant ses propres circuits de production, de 
diffusion, de concerts, et des groupes irlan- 
dais comme Chieftains, Clannad, The 
Dubliners, Horslips ou Planxty collection- 
nent les disques, meme s'ils ne sont ni d'or 
ni de platine. Si les Pogues n'innovent pas, 
ils ouvrent manifestement des portes qui 
s'etaient brutalement refermees il y a dix 
ans sous la pression du raz de maree 




punk. Le punk et son "no future" synthe- 
tisaient la revolte de la jeune generation 
contre les valeurs de la petite bourgeoisie 
anglaise parvenue. Les Pogues, eux, reac- 
tivent les fondements d'une culture essen- 
tiellement populaire en reaction a I'ecra- 
sement social d'une bourgeoisie cossue, 
mesquine et arrogante. 
Dans cette rubrique, la trajectoire de 
Shane McGowan est assez explicite. Irian- 
dais d'origine mais vivant a Londres, 
McGowan figurait parmi les premiers sup- 
porters des Pistols, Damned et autres 
Banshees. Pogotant comme un dement 
avec une copine, un soir aux pieds d'une 
scene enflammee par les Clash, ils se mar- 
raient a se mordre mutuellement jusqu'au 
sang et a s'inciser la chair a coups de tes- 
sons de bouteilles. Un geste un peu trop 
brusque de la fille a un moment, et couic, 
Shane McGowan se trouve deleste d'un 
bout d'oreille (qu'il a en feuille de chou). 
Un photographe etait la pour immortaliser 
la scene, et e'est la premiere fois qu'on 
verra la tete hagarde du futur leader des 
Pogues dans les colonnes du New Musi- 
cal Express. . C'est a cette meme epoque 
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qu'il monte un premier groupe punk sous 
le nom de Nips, lequel splite trois 45 tours 
(collectors) plus tard, en 1980. Pendant 
deux ans, avec deux bons potes, il fait la 
manche dans le metro, alignant un reper- 
toire de vieux chants rebels irlandais. Et 
c'est a partir de ce noyau (Spider Sta- 
cey/Jem Finer/ Shane McGowan) qu'appa- 
rait la premiere mouture des Pogues sous 
le nom de Pogue Mahone, dont un premier 
LP, "Red Roses For Me", sort chez Stiff 
Records en 84. La, probleme : "Ho, shoc- 
king I", s'exclament les programmateurs 
de la BBC en decouvrant que Pogue 
Mahone signifie "baise mon cul" en gae- 
lique, "nous ne diffuserons ce groupe que 
lorsqu'il aura change de nom." C'est done 
sous le nom de The Pogues que paralt 
"Rum Sodomy & The Lash", qui fait un 
fameux carton en se plapant quatrieme 
parmi les meilleurs albums anglais de 
i'annee 85. II faut dire qu'entre-temps, 
Elvis Costello avait decide de s'occuper de 
leur cas, en mettant au service du son de 
ce dernier L.P. ses talents de sorcier des 
studios. Joignant I'utile a I'agreable, il s'est 
par ailleurs farouchement epris du seul ele- 
ment feminin du groupe, la bassiste Cait 
O'Riordan. 

Toujours produit sous la houlette de Cos- 
tello et sur le label Stiff Records (mainte- 
nant distribue par Musidisc), un nouveau 
maxi 45 tours des Pogues vient de sortir, 
intitule "Poguetty in Motion". II contient 
quatre titres aux styles forts differents : 
"London Girl" est un raccourci entre 
I'accordeon cajun et une sorte de ska pun- 
kise (on y revient), "The Body of an Ame- 
rican", une de ces ballades a I'irlandaise 
sur fond de tragedie populaire, comme 
McGowan sait si bien les torcher. Quant 
aux deux autres, elles sont directement 
issues du repertoire typique, "A Rain Night 
in Soho" est le prototype de la chanson 
a boire et a reprendre haut les chceurs et 
" Planxty Noel Hill" est un instrumental qui 
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se danse en claquant des sabots. Le tout 
est lestement enleve et ne devrait pas 
manquer de provoquer I'adhesion d'un 
public, meme autre que breton. 
Au fait, si pa vous branche d'aller voir les 
Pogues en concert, un conseil : n'oubliez 
pas de vous envoyer avant quelques bons 
gorgeons de whisky, quelques pintes de 
Guiness ou tout autre alcool qui vous tom- 
bera sous la main, pa ne vous fera pas de 
mal et pa vous mettra dans I'ambiance... 



BERNARD 
LAVILLIERS 

Voleur de Feu (Barclay) 



rand cru, ce Lavilliers 86 ! 
Au gre de ce 33t. double 
d'un Maxi 45t., Nanard 
nous entraine dans ses 
aventures de globe-trotter 
a travers la plupart de ses 
lieux de predilection. II 
nous convie a rencontrer tous ces person- 
nages qui le touchent. Personnages de la 
nuit comme cette fille d'amour dansant le 
tango "au fond d'un beuglant magique", 
Rocky le Rouge, prince du heavy metal, 
faisant hurler sa guitare dans I'ombre 
moite d'un parking graisseux. ou Ray Bar- 




retto et ses potes faisant tourner une salsa 
endiablee dans un bar de pirates de Porto 
Rico. Personnages dont les reves se con- 



densent et s'evaporent sous le soleil impla- 
cable dans un desert en guerre ou au fond 
d'une mine d'or sous le ciel ouvert de la 
jungle amazonienne. Voleur de feu, Lavil- 
liers s'affranchit des frontieres de styles 
musicaux. Rock, sud-americain, africain, 
il apporte a ces differentes tendances sa 
propre personnalite, une identite qu'il 
puise dans le verbe, la poesie. "Noir et 
Blanc" et "Seigneur de Guerre" extraites 
sur le maxi, sont du meilleur Lavilliers, de 
ces chansons qui parviennent a vous flan- 
quer la chair de poule comme nulles 
autres. 



PETER 
GABRIEL 



So (Virgin) 



ttention, Chef d'Oeuvre ! 

Voila sans doute le plus 
' A \ bel album sorti ces der- 
/ \ \ niers temps. Un album fait 
L — i \ pourtenir la longueur des 

annees, puisqu'on sait 

avec quelle patience Peter 
Gabriel elabore ses architectures sonores, 
avec quelle parcimonie il accepte de les 
rendre publiques. Quatre annees ont 
passe depuis son dernier disque de chan- 
sons, qui contenait le fameux "Shock the 
Monkey", quatre ans pendant lesquels 
Gabriel s'est tout de meme attele a une 
grande ceuvre de composition, la musique 
de "Birdy" le film d'Alan Parker. II aura 
fallu pres de deux ans pour que "So" 
trouve sa forme achevee. Des I'hiver 85, 
on murmurait qu'il etait pratiquement ter- 
mine. C'etait sans compter sur le perfec- 
tionnisme quasi maladif de Peter, qui deci- 
dait de reecrire toutes les chansons Le 
resultat est on ne peut plus probant : huit 
titres seulement, mais dont aucun ne pre- 
sente la moindre faille. Huit titres profonds, 
pleins, lourds de feeling, charges de sens. 
Moins tourmente du point de vue des 




ambiancesque ses predecesseurs, "So" 
est a la fois un tour de force de construc- 
tions rythmiques avec "Big Time" et 
"Sledgehammer" sur des schemas de 
R&B, "That Voice Again" et "In Your 
Eyes" sur des arythmies extremement ela- 
borees (dans ces trois derniers morceaux, 
le batteur franpais Manu Katche donne la 
mesure de son immense talent) et une 
source harmonique d'une grande richesse, 
avec "Don't Give Up" en duo avec la belle 
kate Bush et le tres etrange "We Do What 
We're Told", ou ne subsiste que la quin- 
tessence du savoir-faire de Gabriel en 
matiere de claviers electroniques. Quant 
a "Red Rain" et "Mercy Street", ils parti- 
cipent de cette inspiration prophetique a 
laquelle le chanteur nous a deja habitue. 
En un mot, il serait dommage de passer 
a cote de ce merveilleux album. 



INFOS TOUT POIL 

* Le monde du showbise franpais ne se sent plus d'aise depuis que notre Yvette Horner nationale a repu 
la legion d'honneur des mains du President de la Republique, Mimite himself. La ceremonie s'est deroulee 
le 3 juin dans les Salons de I'Etysee. On murmure que Giscard etait vert de s'etre vu refuse sa proposition 
de venir interpreter un duo avec celle a qui il doit ses premieres emotions musicales. 

* Un grand lestival contre I'apartheid se deraulera le 14 juin a 3 km au large de Dakar, sur ffle de Goree. 
Lieu symbolique, Goree fut I'un des principaux comptoirs d'echange portugais, hollandais, anglais el franpais 
de la cote ouest de I'Afrique, a partir duquel furent deportes des milliers d'esclaves africains vers I'Amerique 
et les Caraibes. Organise a I'iniliative de Pierre Maurois par I'association des villes jumelees, ce festival pre- 
sentera les spectacles de Sade, Higelin, Toure Kunda, Mory Kante, etc. 

* Les Simple Minds ont elu Paris pour I'enregistrement de leur futur album live. A cet etlet, ils joueronl au 
Zenith les 12 et 13 aout. Auparavant, ils auront donne deux concerts dans le sud de la France : le 1 5/7 a Fre|us 
el le 17/7 a Nimes. 
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EBDITO 



Ah. Enfin une bonne 
semaine. Deux joyaux : 
le Munoz-Sampayo et 
les merveilleuses histoi- 
res des Oncles Paul. Du 
tres bon. aussi : Authe- 
man et Ptiluc. J'espere que vous 
avez fait des economies la 
semaine derniere, parce que si 
vous voulez vous payer tout ga 
maintenant, va falloir cracher au 
bassinet. 



Bon. A la semaine proch' (c'est 
une abreviation, ga veut dire pro- 
chaine. J'ai remarque que de plus 
en plus de gens utilisaient des 
abreviations cons, du genre "info" 
pour informatique (alors que c'est 
deja pris par "informations"), 
"VH" pour "VHS" (ce genre 
d'abreviations, vraiment, c'etait 
pas la peine), etc., etc. Done, j'en 
fais aut'). 

Milou 



COMMU 
QUOI? 




Cette semaine, y a vraiment pas 
grand chose de bon. Mis a part "les 
communards" qui est specialement 
nul, au lieu d'etre simplement pas 
bon. Ca raconte I'annee 1 870 au tra- 
vers de deux types pris au hasard 
dans la foule. Qa aurait pu etre ins- 
tructif mais c'est beaucoup trop laid 
pour ca. Le dessin tremblant, hesi- 
tant, noir et blanc, bancal et balei- 
nier n'est pas a la hauteur de I'ambi- 
tion des auteurs. C'est dommage 
car I'epoque se prete bien aux 
reconstitutions historiques grandio- 
ses. Mais bon, c'est rate, on atten- 
dra une autre occasion. 




Comment decrire un Munoz et Sam- 
payo ? Hein ? Comment ? Aidez- 
moi, ceux qui avez deja lu quelque 
chose d'eux ! Venez a mon 
secours ! Comment dites-vous ? 

JOSE MUNOZ ET CARLOS SAMPAYO 

SUDOR SUDACA 




TUBE DE 
L'ETE 



CD 



La recette est simple : on va causer 
de I'ete 62, en y mettant un peu 
d'humour, un peu de cul, un peu de 
nostalgie, un peu de cliches et 
embarquez, c'est pese. Le tout sous 
forme de petits sketches. Bon, c'est 
sympa comme un tube de I'ete, 
sans plus, c'est agreable en fond 
sonore. Ca rappellera des souvenirs 
chez ceux qui avaient 20 ans en 62 
(mais ils en ont 44 maintenant, 
lisent-ils encore de ia bd ?), ca eton- 
nera les ptis jeunes qui croient qu'a 
cette epoque, tout le monde etait 
encore dans les tranchees. et puis 
voila. 
A noter quand meme : bizarrement, 




LES COMMUNARDS de JOURDE 
it BAUTRAIT chez GLEN AT, 79 
tantasalns. 



Faut que je dise que c'est vache- 
ment bien ? Mais ca suffit pas, vous 
le savez bien I Hein ? Que je dis ce 
qu'il y a dedans ? Et comment je 
fais pa, vous qui etes si malin ? J'ai 
qu'a dire que c'est sombre et pro- 
fond ? Bon, ecoutez, je me passe- 
rai de votre collaboration. Non, inu- 
tile d'insister, au revoir. 
Done, Munoz et Sampayo, ce qui 
frappe au premier abord, c'est tout. 
Je veux dire que tout frappe au pre- 
mier abord. Enfin, qu'on en prend 
plein la gueule des qu'on ouvre 
I'album. Comment dire ? C'est 
dense, quoi. C'est du vecu, aussi. 
Enfin, je sais pas si ca rest vrai- 
ment, mais on dirait que. Pfff, j'ai un 
mal, a parler de ca, moi I Qu'est-ce 
que vous voulez que je dise, quand 
c'est genial ? Hop, c'est genial, 
voila, fin de I'article. Ben non. Ca 
serait trop simple. Alors c'est genial 
parce que le dessin est genial, ainsi 
que le scenario, le decoupage, les 
dialogues, les caricatures, les 
numeros de page, la qualite du 
papier, la sensualite du libraire, la 
chaleur du quartier du libraire et 
I'hospitalite de la ville dans laquelle 
se trouve un exemplaire du bou- 
quin. Voila. C'est genial pour tout 
ga. C'est bon, la. je peux souffler ? 

SUDOR SUDACA de MUNOZ et 
SAMPAYO Chez FUTURO (en 
grand), 68 argentine. 




le dessin est extremement inspire 
de Jack Rickard. Ca donne un true 
de la veine de Loro, pour vous 
situer. 

OALERES BALNEAIRES de 
VA TINE et CAILLETON Chez DEL- 
COURT, 49,50 parasols. 



BD Parade! 



LES ONCLES PAUL 

SUDOR SUDACA 

OECRESCENDO 

UNE NUIT CHEZ TENNESSEE 

UN MdME DE PERDU... 

BARBE-NOIRE ET LES INDIENS 

SUPERWEST 

OBJECTIF DANGER 

L'AMERZONE 

NOUVELLES DU PAYS 

LA MANIERE NOIRE 

ALERTE A ESLAPION 

ECRIT PAR LA TEMPETE 

LE LYNX A TIFS 6 

QALERES BALNEAIRES 

LE JOUR DES FAUCONS 

LEON LA TERREUR SEN 

BALANCE 

LA PORTE D'ORIENT 

LA LOUVE 

SITA JAVA 

LES PETITS BOUDDHAS 



COLLECTIF 


15 


MUNOZ SAMPAYO 


15 


PTILUC 


14 


AUTHEMAN 


14 


TAFFIN 


14 


REMACLE 


14 


MATTIOLI 


14 


ROBBINS 


14 


SOKAL 


13 


FERRANDEZ 


12 


WOZNIAK 


12 


SERON 


11 


GINE 


11 


PLEIN DE GENS 


11 


VATINE CAILLETON 


10 


DETHOREY GIROUD 


10 



BOOGAARD SCHIPPERS 10 

GIARDINO 8 

HARRIET REDONDO 6 

TEULE GOURIO 6 

MALIK BROUYERE 5 




EMPLUME 




Ah, superbe. Je n'ai qu'un mot : 
superbe. 

Si, finalement, y en a un autre : 
incomprehensible. Voila. C'est 
superbe et incomprehensible. 
Utilisant le subtil truchement de la 
simultaneite, I'auteur oublie de met- 
tre au point les bases de depart. 




Attendez. Je viens de relire cette 
phrase, et il n'y a qu'un mot pour la 
qualifier : superbe. Ah si, y en a un 
autre : incomprehensible. Done, je 
recommence. 

Le principe narratif de I'album con- 
sists a decrire plusieurs actions 
simultanees, jusqu'a leur jonction. 
C'est un procede classique, mais 
efficace. Or, lorsqu'on I'utilise, il faut 
imperativement respecter une 
regie : decrire dans les moindres 
details chaque situation de depart, 
afin de les laisser evoluer seules au 
cours de I'histoire. Et la, c'est rate : 
rien n'est explique. C'est-a-dire que 
pour comprendre tout, il faut le lire 



(1) Qui n'existe pas, d'ailleurs : 
c'est un gag. 



KAGUEBE 




Encore un Bucquoy. J'aimerais bien 
le voir, de temps en temps, faire 
autre chose que de ('extrapolation 
politico-metaphysique. Ca change- 
rait. Parce qu'on commence a con- 
naitre les ficelles : un pauvre type, 
pas con mais piutot resigne, revolte 
contre Le Systeme. Bien stir, il 
trouve un jour une faille au Systeme, 
va tenter d'en profiler, mais va 
s'apercevoir rapidement que le 
Systeme a prevu des securites con- 
tre ce genre de bugs. Done, il aban- 
donne, et souvent perd tout ce qu'il 
a : sa dignite, son temps, son bel 
optimisme et sa carte bleue. Ca va 
bien cinq minutes. 
Done, c'est une recette eculee. 
Voila voila. Qu'est-ce que j'en pense 
d'autre ? Que le dessin est telle- 



a I'aveuglette une fois dans le bon 
sens, puis repartir en arriere en 
notant les caracteristiques des per 
sonnages et des actions. Puis 
encore une fois dans le bon sens, 
avec tous les elements. C'est faisa- 
ble, hein, je suis pas contre. Mais 
normalement, c'est le rfile de 
I'auteur, de faire ca. Enfin, bon, 
c'est un choix. 
Done, superbe et incomprehensible. 

LES PLUMES DE LARGUS de 
SCHETTER chez GLENAT, 39,50 

porte-avions. 



SALUT LA 
PROMO 

VOIR PAGE 23 



MIMETISME 
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Voici I'edition en album de la pre- 
miere aventure des petits hommes. 
Ca permet de constater que non 
seulement Seron a tout pompe sur 
Franquin, mais qu'en plus il a suivi 
exactement la meme evolution. 





ment classique qu'il ne ferait pas se 
retourner un Albanais. Voila voila. 
J'ai pas grand-chose a en dire. 
C'est du Bucquoy. Reportez-vous 
aux ouvrages precedents. 

STONE AGENT DE MOSCOU de 
BUCQUOY et DUVIVIER chez 
GLENAT, 39,50 cartes. 



CA SUIT, 
DERRIERE ? 




Alors la, I am on the cul. II y a un 
certain temps, Spirou avait 
demande a quelques dessinateurs 
de faire une parodie des histoires de 
I'Oncle Paul. On sait ce que ga peut 
donner, il n'y a qu'a voir les tentati- 
ves avec Lucky Luke et Gaston 
Lagaffe : c'est nul dans la plupart 
des cas. Ben la, va savoir pourquoi, 
c'est a hurler de rire. D'ailleurs, je 
vais vous avouer un detail intime : 
lors de la lecture de I'histoire de Will 
et Yann, j'ai ri - oui, ri a haute fois, 
fort - deux fois. Et une fois avec I'his- 
toire de Bercovici et Yann. Ca fai- 
sait vachement longtemps que 
j'avais pas ri. Et j'ai ri une fois a cha- 
que case dans I'histoire de Goos- 
sens. J'en reviens pas moi-meme. 
C'est fou. Rendez-vous compte : 
c'est vraiment marrant. Du coup, 




Cinquieme episode des aventures 
des rats. Genial. 

Ptiluc a reussi a creer un monde 
entier, peuple de rats et de hams- 
ters, qui ont des problemes, une reli- 
gion, des leaders, des angoisses, 
des peurs, des bons moments, des 
croyances, une appartenance poli- 
tique, une boite a chewing-gums, 
une deesse, un scientifique et pas 
de raton-laveur. 

Alors la question qui se pose, c'est : 
"qu'est-ce qu'on en a a foutre, des 
rats ?" 

C'est la meme question qui s'etait 
posee lors de la sortie de "The Dark 
Crystal". Au debut, on disait : "c'est 
bien de faire un film avec des 
marionnettes, mais qui ga interesse, 
a part les mdmes ?" Et rapidement, 
on a eu la reponse : ga interesse 
tout le monde, cong. Parce que 



C'est la que commence le debat des 
exegetes : un pompeur, s'il est 
aussi bon que I'original au point de 
vue technique, est-il aussi interes- 
sant ? A cette grande question qui 
secoue le milieu de la bd, je vais 
repondre. 

Deux possibilites : soit on est fan 
d'un auteur en tant que tel, d'une 
personne precise, on a toute la col- 
lec', on sait ce qu'il a fait avant, 
quels sont ses projets, on garde les 
revues dans lesquelles il y a des 
interviews dudit auteur. Auquel cas, 
un pompeur est un vil plagiaire, un 
salaud, un connard a abattre parce 
que pompant les idees du maitre. 
Soit on en a rien a foutre, on lit de 
la bd parce que c'est distrayant et 
moins chiant que Stendhal, on aime 
bien un style de dessin (ou de sce- 




Ca alors I Autheman tient la dis- 
tance. J'avais vu ce qu'il avait fait 
en une planche, je sais plus dans 
quoi, mais je pensais pas qu'il 
puisse tenir un album. Eh ben, sans 
probleme. C'est beau comme du 
Autheman et bon comme du Authe- 
man, sauf que ga dure 48 pages. 
Imaginez le plaisir. C'est une som- 
bre histoire de trafiquants, de 
voleurs de diamants, de pute per- 
due sur une fie quasi deserte et 
d'armee en faction contre I'invasion 
rouge. Que des fous, en gros. De 
ceux qui partem le plus loin possi- 
ble en esperant refaire leur vie et qui 
s'apergoivent un peu tard qu'ils sont 
paumes dans un trou et qu'ils vont 
probablement y finir leurs jours. 
C'est magnifique. Les couleurs sont 
superbes, les dessins tiennent la 
route, les dialogues sont tallies au 
burin, ga colle parfaitement, y a pas 




Yann a droit a mon indefectible 

admiration. 

Bon, precipitez-vous pour acheter 

ga, dedans y a Bercovici, Chaland, 

Clerc, Dany, Frank, Legall, Goos- 

sens(mmmhhh, oui, encore !), Will 

et Yann. 

LES HISTOIRES MERVEILLEUSES 
DES- ONCLES PAUL de CEUX 
CITES PLUS HAUT chez VENTS 
D'OUEST (mmmhhh, oui, 
encore I), 49 pipes. 




c'etait drolement bien. Et qu'on 
avait tous besoin de se sentir 
momes pour deux heures. 
Done, Ptiluc, c'est pareil. Son true 
est passionnant. On est pris dedans 
comme une mouche dans une toile 
d'araignee. 

Attention quand meme : la lee*"" 1 
des quatre precedents tomes 
absolument necessaire. 

DECRESCENDO de PTILUC chez 
VENTS D OUEST (ca, c est un edi- 
teur qu'il est de plus en plus 
bon I), 69 rats. 



nario) et tout ce qui s'y rapproclv 
est bon a prendre. Dans ce cas, un 
pompeur est une benediction, 
puisqu'ii prolonge I'oeuvre du 
maTtre. 

II y a une troisieme possibility, incar- 
nee par moi, qui consiste a etre fan 
et a adorer les plagiaires lorsqu'ils 
ont du talent. Ainsi, j'adore Boucq 
parce qu'il me donne un peu plus 
de Goossens, j'adore Seron parce 
qu'il me donne un peu plus de Fran- 
quin et j'adore Thiriet parce qu'il me 
donne un peu plus de Coucho. 
Done, j'aime bien cet album des 
petits hommes, que vous n'allez pas 
aimer si vous appartenez a la cate- 
goric 1. 

ALERTE A ESLAPION de SERON 
chez DUPUIS, 35 petits francs. 



de dissonances entre tous ces ele- 
ments et on prend son pied. Conclu- 
sion du lecteur finaud : tiens, il a 
bien aime cet album. Bravo, le lec- 
teur finaud. 




UNE NUIT CHEZ TENNESSEE de 
AUTHEMAN chez GLENAT, 39,50 
diamants bleus. 
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DEUX SUPER-CONCOURS PERMAMENTS 

20.000 francs de prix au MEILLEUR LOGICIEL du MOIS et un VOYAGE pour 2 per- 
sonnes en CALIFORNIE au meilleur logiciel du TRIMESTRE. 



Un concours de plus ! 
Rien de bien original dans cette 
formule, pourtant nous essayons 
de faire quelque chose de diffe- 
rent : nous organisons un con- 
cours permanent tous les mois et 
tous les trimestres ! Et avec des 
prix dignes des programmes que 
vous allez nous envoyer ! 
De plus, ce seront les lecteurs 
eux-memes qui voteront pour 
leurs programmes preferes sur la 
grille recapitulative mensuelle. 
Pas de jury, pas de decision arbi- 
trage, HEBDOGICIEL n'interve- 
nant que dans le choix des pro- 
grammes qui devront etre ORIGI- 
NAUX et FRANCAIS. Si votre pro- 
gramme n'est pas tout a fait au 
point, un de nos specialistes vous 
dira comment I'ameliorer pour 
nous le proposer a nouveau. 
Pour participer, il vous suffit de 
nous envoyer vos programmes 
accompagnes du bon de partici- 
pation ainsi que de toutes les 
explications necessaires a I "utili- 
sation de ce programme. 
Bonne chance ! 



Reglement : 

ART.1 : HEBDOGICIEL organise de 
fagon mensuelle et trimestrielle un 
concours dote de prix recompen- 
sant le meilleur programme du mois 
et du trimestre. 

ART. 2 : Ce concours est ouvert a 
tout auteur de logiciel quel que soit 
le materiel sur lequel il est realise. 
L'envoi d'un logiciel en cassette ou 
disquette accompagne d'un bon de 
participation decoupe dans HEB- 
DOGICIEL constitue I'acte de 
candidature. 

ART.3 : La redaction d'HEBDOGI- 
CIEL se reserve le droit de selec- 
tionner sur la base de la qualite et 
de I'originalite les logiciels qui sont 
publies dans le journal. 
ART.4 : Ce sont les lecteurs qui, par 
leur vote, determinent les meilleurs 
logiciels mensuels et trimestriels. 
ART. 5 : Le prix alloue pour le con- 
cours mensuel sera remis au plus 
tard un mois apres la cloture du con- 
cours mensuel. 

ART. 6 : Le prix alloue pour le con- 
cours trimestriel sera remis au plus 
tard un mois apres la cloture du con- 



cours trimestriel. 

ART. 7 : Le present reglement a ete 
depose chez MaTtre Jaunatre, 1 rue 
des Halles, 75001 Paris. 
ART. 8 : HEBDOGICIEL se reserve 
le droit d'interrompre a tout moment 
le present concours en avisant les 
lecteurs un mois avant. 
ART.9 : La participation au con- 
cours entralne I'acceptation par les 
concurrents du present reglement. 



HEBDOGICIEL 
75017 PARIS. 



24 rue Baron 



BON DE PARTICIPATION 



Nom 

Prenom 

Age Profession 

Adresse 

N telephone 

Nom du programme 

Nom du materiel utilise 

declare etre lauteur de ce programme qui nest ni une imitation ni une 
copie dun programme existant Ce piogramme reste ma propnete et 
j autonse HEBDOGICIEL a le publier La remuneration pour les pages 
publiees sera de 1000 francs par page (un programme n occupant pas 
une page entiere sera remunerelau prorata de la surface occupee) 

Signature obligatoire 

(signature des parents pour les mineurs) 

Le programme doit etre expedie sur support magnetique (cassette ou 
disquette) accompagne dun descriptif detail le d u materiel utilise, 
d une notice d'utilisation du programme Les supports des program- 
mes publies sont conserves, noubliez done pas den faire une copie. 



Sera declare gagnant le pro- 
gramme qui aura obtenu le plus 
fort pourcentage de vote par rap- 
port a la totalite des programmes 
recus pour un meme ordinateur. 

Ainsi, pas de favoritisme pour les 
ordinateurs plus puissants ou tres 
diffuses. 





N°I34 


N°135 


N°136 


N°137 


APPLE II 


TRISTAN 8 ISEULT 


DOS PATCHER 


LE VER D'OZ 


LA MISSION 


AMSTRAD 


NIBBLER 


TANK OF TRON II 


ALPHA BUG 


FOX 


AMSTRAD 


TREMPOLINE 


WILD HORSE 


WILD HORSE 


CHAMPIGNON MAGIQUE 


CANON X07 


KEY PROGRAMMER 


CANON BURGER 


CANON CALC 


BOAT 


CASIO FX 701 P 


MEMORIE 


JACK POT 


DOPE 


DEBARASSER DE SA FEMME 


COMMODORE 64 


GOLF 


GOLF 


GOLF 


GOLF 


COMMODORE VIC 10 


STRIP CRAPS 


LES SAUTEURS 


TOUR INFERNALE 


SNAKE BIT 


EXL 1O0 


TAROT 


TAROT 


TAROT 


TAROT 


MSX 


UBODVE 


CHEPHREN 


CHEPHREN 


PAC 


ORIC 


MORDOR 


MORDOR 


L'ANNE ROUGE 


YING YANG EXAGONE 


SPECTRUM 


CYCLOTRON 


KORVUS INVASION 


ESQUIVE 


MOUSE 


THOMSON 


GUERRES SPATIALES 


D.A.O. 


D.AO. 


OIL PANIC 


THOMSON 




FH SUPER 


INVASION 


INVASION 


TI99/4A (B.E) 


TURBO FRED 


KARATEKA SOS PLAGE 


PROTECTION CIVILE 


PROTECTION CIVILE 


zxai 


TILT 


PORTEUR 


PORTEUR 


GUERRE SPATIALE 



\\ 



e'gsr u mJVEue) 

SHEl'Ul 




AUXURNES! 



Abandonnez quelques instants 
vos claviers et prenez votre plus 
belle plume pour remplir le bul- 
letin ae vote ci-contre. La redac- 
tion d'Hebdogiciel compte sur 
vous ! 
La marche a suivre est simple : 

- Reperez dans la grille ci- 
contre, le programme pour 
lequel vous voulez voter, ainsi 
que celui pour lequel vous votez 
en second (le second nous per- 
mettra de rendre plus equitable 
la formule de choix du gagnant). 

- Reportez le nom de ces deux 
programmes sur le bulletin de 
vote. 

- Inscrivez vos nom et adresse 
sur le bulletin de vote. 

A renvoyer avant le 12 juin a 
minuit a HEBDOGICIEL. 
Concours mensuel, 24 rue 
BARON 75017 PARIS. 
II est fort probable que ceux qui 
participent au concours feront 
voter leur papa, leur maman, 
leur cousine et la totalite de 
leurs amis et relations pour leur 
programme. Normal ! Mais 
comme chacun d'eux fera la 
meme chose, cela n'est pas bien 



grave ! Toutefois, toujours dans BULLETIN de VOTE ; pas de pho- 
un souci d'equite, nous n'accep- tocopies, cela serait trop facile ! 
terons que les ORIGINAUX du 



Date limite d'envoi du Bulletin de Vote le Jeudi 12 juin 
a minuit. 



BULLETIN DE VOTE 



A renvoyer avant le 12 juin a minuit a HEBDOGICIEL, Con- 
cours Mensuel, 24 rue Baron 75017 PARIS. 

JE VOTE POUR LE PROGRAMME SUIVANT : 
NOM DE L'ORDINATEUR : 
NOM DU PROGRAMME : 

JE CLASSE SECOND LE PROGRAMME SUIVANT : 
NOM DE L'ORDINATEUR : 
NOM DU PROGRAMME : 



NOM ET PRENOM 
ADRESSE : 



ABONNEZ-VOUS 
A HEBDOGICIEL 



m&k 



tcoi&%c s 



A# 



f&* 



I* Iff? 8 



572 francs pour 52 numeros achetes chez votre 
marchand de journaux. Dur, hein, 572 francs ? 
Faut les sortir ! 

Et si vous vous abonniez ? 450 francs au lieu de 572, 
ca marche ? Et un abonnement pour six mois vous 
coutera seulement 230 francs. 

Si vous faites partie du Club Hebdogiciel, vous avez 
gagne 10% de mieux. 405 francs pour un an et 207 
francs pour 6 mois. Le bulletin est la, dessous, on se 
depeche. 



ABONNEMENT 



A renvoyer a HEBDOGICIEL, service Abonnement, 
24 rue Baron 75017 PARIS 




Nom : Prenom 

Adresse complete : 



France 



Etranger 



1 an : □ 450 francs 

6 mois : G 230 francs 

1an : □ 530 francs 

6 mois : G 270 francs 



Ordinateur utilise 



N° de carte obligatoire pour les membres du 
Club : 



Membres du Club, deduisez 
vous-memes les 10% soit : 
Reglement joint : 

□ CCP 

□ Cheque bancaire 



SALUT LA PROMO 



Vous detestez votre libraire ? Bravo ! SALUT LA PROMO est faite 
pour vous. Chaque semaine les plus malins d'entre vous pour- 
ront profiler d'une offre speciale mais aussi nous commander 
tous les albums de bandes dessinees de leur choix. En plus, cha- 
que album donnera droit a un point-cadeau, plusieurs points- 
cadeaux donnant droit a un album de bandes dessinees gratos 
(3 points pour "Les Robinson du Rail" de Franquin, 5 points pour 
"Kamasutra" de Jacovitti, et 8 points pour "Pin-Up, toutes les 
pinups du siecle"). Comment commander ? Tres simple, sur la 
liste des albums, publiee chaque semaine. prenez les prix, ajoutez 
10 francs de port si vous n'en commandez qu'un, ou 6 francs 
par album s'il y en a plusieurs, et renvoyez-nous le coupon- 
reponse avec votre paiement. Attention, a partir de 4 albums, 
le port est gratuit et a partir de 240 francs vous recevrez gratos 
le mensuel "Spot BD". 



Salut les Albanals. Cette semaine est faste, vous avez remar- 
que ? Pas facile de choisir un album qui supporte la promo, 
entre les Oncles Paul et le Munoz-Sampayo. J'al consulte 
Milou, qui m'a conseille de la faire sur les Oncles Paul, done 
e'est sur Munoz-Sampayo. II va encore faire la gueule, mais 
bon. 

Si done vous vous aventurez a acquerir cet ouvrage (68 bal- 
les plus eventuellement frais de port) par mon intermediate, 
je vous fais un cadeau somptueux : quatre serigraphies de 
Willem (tirage limite, 500 ex.) petit format (a peine plus gran- 
des qu'une carte postale). Ca ressemble a des cartes posta- 
les, mais quand on voit la qualite de I'impresslon, on com- 
prend la difference (pour ceux qui ont la difference entre les 
jambes, ah I ah I Excusez-moi). 

Ah, une dernlere chose : quand vous commandez des albums, 
vous avez des points-cadeaux. Au bout d'un certain nombre 
de ces albums, vous avez droit a un vrai cadeau. Dans ce cas, 
n'oubliez pas de dire lequel vous voulez, sinon je rame a 
essayer de deduire ce que e'est d'apres le montant du che- 
que ! Ok, vous faites gaffe ? Merci, les mecs. C'est sympa. 

[ ] Je veux tout, les bons petits plats, les serigraphies, I'album 
de Munoz et Sampayo. et en plus pas grossir ! 

Je veux tout, les albums ci-contre, les frites pas grasses, et 
garder la ligne. 

Je veux tout, un catalogue gratuit. et en plus elle est bonne. 






/V*'f. t'ps 

{get** botiey 




L'HOMME A LA VALISE 

CLARKE ET KUBRICK 1 

CLARKE ET KUBRICK 2 

CLARKE ET KUBRICK 3 

AVANT GUERRE 

LA FEMME DU MAGICIEN 

TRAGIQUES DESTINS 

BLOODI ET LES RONGEURS 

CONTES PERVERS 

MAESTER ET BOULES DE 

GOMME 

MORBUS GRAVIS 

ROCK MASTARD 

JOE'S AIR FORCE 

LE PRIVE D'HOLLYWOOD - 

BERTHET 1 

MORTES SAISONS - BERTHET 2 

COULEUR CAFE - BERTHET 3 

LE THEOREME DE BELL 

SPOOKY 

LA FIN DU MONDE... 

LA FEMME PIEGE 

LES 110 PILULES 

DECONFITURE AU PETIT 

DEJEUNER 

LE VICOMTE 

SUPERWEST 

NOUVELLES DU PAYS 

OBJECTIF DANGER 

UN MOME DE PERDU... 

LES ONCLES PAUL 

DECRESCENDO 

SUDOR SUDACA 

ALERTE A ESLAPION 

GALERES BALNEAIRES 

UNE NUIT CHEZ TENNESSEE 

LES PLUMES DE L'ARGUS 

STONE AGENT DE MOSCOU 



45,00 
39,50 
39,50 
39,50 
39,00 
72,00 
49,00 
32,00 
59,00 

45,00 
59,50 
65,00 
52,00 

33,00 
33,00 
33,00 
49,00 
32,00 
59,00 
69,00 
45,00 

45,00 
59,50 
49,00 
41,00 
69,00 
42,00 
49,00 
69,00 
68,00 
35,00 
49,50 
39,50 
39,50 
39,50 



Nom : Code postal + Ville : 

Prenom: Envoyez ce bon a : IMPRESSION 3 impasse du 

Adresse : Colombier 95230 SOISY 
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XERAGONE 



En quete de richesses au fin-fond de I'espace, tentez aux 
commandes de votre vaisseau spatial special, de recupe- 
rer quinze inestimables diamants eparpilles sur un myste- 
rieux meteore... 

Jean-Marc BELORGANE 




STfrAfiWE, , 




SUITE DU 
N°137 



2220 DATA 05 , 05 , 30, E7, 00, 00, 04, QC 
> 14 

2230 DATA 14 , 1 4, 24, DO, B7, 04, 04, 08 
,08 

2240 DATA 10, 10, 20, 20, A8, B7, 01 , 06 
, 18 

2250 DATA 10,10,08,10,30,58,E7,08 
,08 

2260 DATA 04,02,01,01,02,04,60,67 
.02 

2270 DATA 02,01,01,02,04,08,08,70 
,B7 

2280 DATA 10, 10, 10, 08, OE, 02, 01 , 01 
,78 

2290 DATA B7, 00, 07, 08, 10, 10, 10, 10 
, 10 

2300 DATA 80, B7, 01 , 3E , 10, OE, 01 , 00 
,00 

2310 DATA 00, 88, B7, 00, 3C, 02, 01, 00 
,00 

2320 DATA 00, 00, 90, B7, 00, 07, 04, 08 
,30 

2330 DATA 00,00,00,98,67,04,38,00 
,0D 

2340 DATA 00, 00, 00, 00, AO, B7, 3C, 02 
,02 

2350 DATA 02, 04, 08, 10, 20, D8, B7, 00 
,20 

2360 DATA 10, OF, 01 , 02, 04, 03, B8, B7 
,39 

2370 DATA 25,23,20,20,20,20,20,80 
,B7 

2380 DATA 20,38,08,08,08,08,10,20 
, C8 

2390 DATA B7, 00, 00, 00, 00, 3C, 02, 02 
,01 

2400 DATA CO, B7, 20, IB, 06, 01 , 3F, 00 
,00 

2410 DATA 00,E0,B7,01,02,D2,04,04 
,08 

2420 DATA 08, 3F, FO, B7, 20, 10, 10, 08 
,04 

2430 DATA 04,02,3F, FIN 

2440 : 

2450 REM ( PROGRAMME MACHINE ) 

2460 REM -No6 de donnees pour la 
redefinition du troisieme paysage 

2470 : 

2480 G0SUB2490 : G0SUB2830 : G0T02950 

2490 OOKEttBO , 2+DEEK ( #E9 ) : RETURN 

2500 DATA #96C4, 9276 

2510 DATA "No6 de donnees pour la 

redef in i " 

2520 DATA "-tion du troisi-eme pay 
sage entre les lignes 2500-2770 

2530 DATA 10,87,04,04,06,06,06,05 
,05 

2540 DATA 05 , 30, B7, 20, 12, OE, 02, 02 
,04 

2550 DATA 04,03,58,67,00,00,00,00 
,00 

2560 DATA 1 C, 12, 21 , 60, 87, 05 , 05 , 05 
,05 

2570 DATA 06, 06, 04, 04, 78, 87, OE, 02 
,02 

2580 DATA 04,04,08,10,20,90,87,00 
,00 

2590 DATA 00, OF, 08, 08, 10, 20, 98, 87 
,21 

2600 DATA 21 , 21 , 21 , 21 , 21 , 21 , 21 , AO 
,B7 

2610 DATA 01,02,04,04,08, 10,20, 3F 
,A8 

2620 DATA 8.7,20,10,10,10,10,08,06 
,01 

2630 DATA 60,87,01,02,04,04,08,04 
,02 

2640 DATA 01,68,87,00,00,00,08,14 
, 14 

2650 DATA 24, 24, CO, B7, 20, 18, 04, 02 
,02 

2660 DATA 04, 18, 20, CB, 87, 20, 20, 18 
,04 

2670 DATA 04, 02, 02, 01 , DO, 87 , 01 , 01 
,01 

2680 DATA 06, 02, 01 , 01 , 01 , D8, 87, 00 
,00 

2690 DATA 15 , 15 , 15, 15 , 15 , 15 , EO, 87 
,08 

2700 DATA 08, 08, 08, 04, 04, 02, 01 , FO 
,B7 

2710 DATA 00, 18, 14, 14, 14,0A,0A,09 
, 10 

2720 DATA 85,00,18,14,14,26,25,21 
, 11 

2730 DATA 50, 86, 00, 00, 3C, 32, 2D, 2D 
, 13 

2740 DATA OF , 70, B7, 20, 10, 10, 08, 08 
,08 

2750 DATA 08, 08, 80, 87, 01 , 02, 02, 04 
,04 

2760 DATA 04,04,04,88,87,04,04,04 
,04 

2770 DATA 04,02,02,01, FIN 

2780 : 

2790 REM ======================== 



2800 
ES = 
2810 

2820 
2830 
2840 
+ 1 
2850 

2860 
2870 
T" Errt 
E MA-' 
2880 
2890 
2900 
2910 

2920 

2930 



REM = CHARGEMENT DES ROUT IN 

READ AD,ST,F1*,F2*,D*:REPEAT 
D=VAL< "#"+D») :POKEAD,D:AD=AD 

SO=SO+D:READ D* :UNTILD*=" FIN 

IF SO=ST THENS0=0: RETURN 
POP : CLS : G0SU88B70 : PRI NT : PR IN 
>ur de DATAS dans le PROGRAMM 

PRINT"CHINE ";F1*:PRINT F2* 
G0SUB8970 : PING : END 

REM ======================== 

REM =====( INITIALISATION )= 

REM ======================== 



2940 : 

2950 TEXT :CALL#400: CLS 

2960 PAPERO: INK7 : P0KE618, 10 

2970 DEF FNMOD(A)=INT< <A/7-INT(A/ 

7) )*7+0.05>*S6N!A/7)+l 
2980 Z=ABS(PEEK(#D000)=169) :GOSUB 

8870 
2990 M0=#9C : DE=#84 : GA=#AC : DO=#BC 
3000 MR=#B4:PA=#AF:ES=1 :EZ=1 :ET=1 
3010 M0*=CHR*!33> :DE*=CHR*( 124) 
3020 GA*=CHR*<94> : DO*=CHR* < 96) : VS 

= 10 
3030 MR*="ESPACE" : PA*=" RETURN" 
3040 FORN= 1 T06 : RE < N ) =7000-N* 1 ODD 
3050 RE*!N)="X E R A G N E":NEX 

T 
3060 RE!0>=19270:RE*(0)="Par L ' 
AUTEUR" 

3070 DIMX(2, 11 ) , Y(2, 11 ) 
3080 D0KE#306 , #FFFF : G0SUB3 1 60 : S0= 


3090 FORN=0T02:F0RM=0T011 :READX, Y 
3100 SO=SO+X*Y:X<N,M)=X+Z:Y!N,M>= 

Y 
3110 NEXT:NEXT:DOKE#306,#2710 
3120 IF S0=5643 THENSO=0 : 5OTO3260 
3130 G0SU88870: PRINVErreur de DA 

TAS dans les Coordonnees" 
3140 PRINT"des mines entre les li 

gnes 3170-3250 »:PING:STOP 
3150 REM Coordonnees des mines 



3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
32B0 



D0KE#E0, 
DATA 26,06 
DATA 14,12 
DATA 33,06 
DATA 03,07 
DATA 24,09 
DATA 16, 13 
DATA 11,10 
DATA 14,06 
DATA 27,06 
G0SUE8900 



DEEK(#E9) : 
7,07,26, 
, 14, 13, 13, 
,32,07,32, 
,03,08,02, 
,25,08,26, 
, 17, 12, 18, 
, 10, 11,09, 
, 15,07, 14, 
,28,06,25, 
G0SUB8940 : 



RETURN 
08,25,07 
13, 13, 12 
08,31,08 
07,03,06 
09,25, 10 
13, 17, 14 
10, 10, 09 
08, 13,07 
07,26,06 
R=l 



REM == = 



3290 REM ==========( MENU )= 

3300 REM =================== 



3310 : 

3320 G0SUEB620:IFET THENPLAY7, 0, 
,0 
3330 GE=0 : P0=0 : RE=RE ( ) : GF=0 : P0*= 

3340 PLOTZ+8,5, "par Jean-Marc BEL 
0RGANE"+CHR*<7) 
3350 F0RN=6TO24:PL0TZ+2,N, 10 

3360 PL0TZ+35 , N, 8 : NEXT : F0RN=0T01 

3370 PL0TZ+3,N+7, CHR*( 1 >+" 1 :"+CH 
R*(5)+"Pour la regie du Jeu"+CHR*( 
7) 

3380 PL0TZ+3.N+11, CHR*< 1 )+"2 :"+C 
HR*!6)+"Pour le choix des touches" 
+CHR*<7) 

3390 PL0TZ+3,N+15, CHR*( 1 )+"3 :"+C 
HR*!2)+"Pour le niveau sonore"+CHR 
*(7) 

3400 PL0TZ+3,N+19,CHR*<1 >+"4 :"+C 
HR*(3)+"Pour le tableau des scores 
"+CHR*<7> 

3410 PL0TZ+3.N+23, CHR*< 1 >+"5 :"+C 
HR$(7)+"Pour JOUER":NEXT 

3420 : 

3430 REM -(Animation + Test touch 

55)- 

3440 : 

3450 M=24:N=1 :0=1 : 1=1 : ZX=Z+36 : A=l 

3460 IFES=OTHENS=OELSE S=R*VO 

3470 IFNAND0=1THENPL0TZ,N-1, " ": 

PLOTZ,N, PLOTZX.M+1, PLOTZ 

X,M+2," " 

3480 IFMAND0=0THENPL0TZ,N+2, 

PLOTZ, N+l, PL0TZX,M-1, PLO 

TZX,M," 

3490 IFN=0THENPL0TZ,2, " ":PL0TZX 
,24," " 

3500 PLOTZ, N,"[ ]" : IFOTHENPLOTZ , N+ 
1, "a\"ELSEPLOTZ,N+l, " ( ) " 

3510 PLOTZX,M,"C I" : IFOTHENPLOTZX , 
M+l, " ( ) "ELSEPL0TZX,M+1, "3\" 

3520 IFPEEK(#208)=#38THENA=1 :GOTO 



3620 

3530 IFPEEK < #208 ) =#ABTHENA=2 : GOTO 
3610 

3540 I FPEEK ( #208 ) =#B2THENA=3 : GOTO 
3610 

3550 IFPEEK ( #208 ) =#B8THENA=4 : GOTO 
3610 

3560 I FPEEK < #208 ) =#9ATHENA=5 : GOTO 
3610 

3570 I FPEEK ( #208 ) =#90THENA=6 : GOTO 
3610 

3580 IFPEEK ( #208 )=#84G0T03600 

3590 PAPER4 : WAI T4 : PAPERO : A=l : GOTO 
3620 

3600 R=R+l:R=ABS(RANDl ) :S=R»VO 

3610 S0UND2,0,0:S0UND3,0,0 

3620 0NAG0T03630, 3740, 4410, 4900, 5 
680,5880 

3630 IFO THENM=M-1 :N=N+1 : IFN=26TH 
EN0=0 

3640 IF0=0THENM=M+1 :N=N-1 : IFN=OTH 
EN0=1 

3650 S0UND2 , 80+M*6 , S : S0UND3 , BO+N* 
6,S 

3660 1=1+1 :IFI>7THENI=1 

3670 PLOTZ+7,5, I 

3680 G0T03470 

3690 : 

3700 REM ======================== 

3710 REM ======( REGLES DE JEU )= 

3730 : 

3740 GOSUE8620 

3750 PRINTCHR*! 134) " XERAGONE es 
t un Jeu d'aventure spa" 
3760 PRINTCHR*! 134) "-tiale qui se 
derouie sur 3 tableaux" 
3770 PRINTCHR*! 134) "dlf ferents. . . 

3780 PRINT:PRINTCHR*< 130) " Le but 
du Jeu est de recuperer dans" 
3790 PRINTCHR*! 130)" les plus bref 

s delais, 15 pierres pre-" ; 
3800 PRINTCHR*! 130)"cieuses dispe 

rsees dans les crevasses"; 
3810 PRINTCHR*! 130) "d*un gigantes 

que meteor ambulant sur-"; 
3B20 PRINTCHR*! 130) "nomme XERAGON 

E . . . •' 

3830 PRINT:PRINTCHR*< 131 ) " Pour e 
xecuter votre mission, vous " 

384Q PRINTCHR*! 131) "disposez de T 
ROIS vaisseaux spatiaux" 

3850 PRINTCHR*! 131 > "dont, le prem 
ier est rempli de 999 " 

3860 PRINTCHR*! 131) "litres de car 
burant au depart et, les"; 

3870 PRINTCHR*( 131) "DEUX autres d 
e 300 litres de reserve" 

3880 PRINTCHR*! 131 > "si vous tombe 
r en panne seche. . . 

3890 PRINTCHR*! 131 ) "Bien entendu, 

au cours du Jeu il vous"; 

3900 PRINTCHR*! 131 > "est possible 
de refaire le plein si " 

3910 PRINTCHR*! 131 ) " le besoin s'e 
n fait sentir, en vous " 

3920 PRINTCHR*! 131 ("posant sur"CH 
R*!134)"un jerrycan bleu ciel [" 

3930 : 

3940 REM > 2eme PAGE < 

3950 : 

3960 G0SUB8650:G0SUB8620 

3970 PRINTCHR*! 133) " Je tiens tou 
t de meme a vous signa-" 

3980 PRINTCHR*! 133) "ler que la gr 
ande Vitesse de deplace" 

3990 PRINTCHR*! 133) "-ment de ce m 
eteor est susceptible de" ; 

4000 PRINTCHR*( 133) "provoquer de 
multiples perturbations" 

4010 PRINTCHR*! 133) "qui sont cara 
cterisees soit par :" 

4020 PRINT:PRINTCHR*< 130) "* Des p 
etites cometes qui traversent" 

4030 PRINTCHR*! 130) "votre champs 
d' actions de droite a " 

4040 PRINTCHR*! 130) "gauche, et de 

plus a des altitudes " 

4050 PRINTCHR*! 130) "aleatoires. " 

4060 PRINT:PRINTCHR*<131>"» Ou al 
ors par des variations de posi"; 

4070 PRINTCHR*! 131 > "-tions de 3 m 
ines spatiales qui se de" ; 

4080 PRINTCHR*! 131 >"-placent alea 
toirement a tour de role"; 

4090 PRINTCHR*! 131 >"suivant 4 pos 
itions predeterminees. . . " 

4100 PRINTCHR*! 129)"* Et aussi pa 
r des pertes de controle" ; 

4110 PRINTCHR*! 129>"de votre vais 
seau spatial, si vous la"; 

4120 PRINTCHR*! 129) "-chez les com 
mandes un court instant."; 

4 1 30 : 

4140 REM ( 3eme PAGE ) 

4150 : 

4160 G0SUB8650:G0SUB8620 

4170 PRINTCHR* (135)" Et vous vous 

apercevrez que votre " 



4180 PRINTCHR*! 135) "vaisseau spat 
iai sera alors porte par"; 

4190 PRINTCHR*( 135)" les VENTS sol 
aires qui ant leur direc"; 

4200 PRINTCHR*! 135) "-tion indique 
e au tableau de bord." 

4210 PRINT:PRINTCHR*( 129)"R E M A 

R Q U E S" 

4220 PRINT: PRINTCHR* ( 129)"*"CHR*( 
131)"Un bref ZAP et l'allumage du 
si gnal " ; 

4230 PR I NTCHR* < 1 34 ) " DANGER " CHR* ( 1 
31)"au tableau de bord vous signa- 

4240 PRINTCHR** 131 )" le l'arrivee 
imminente d'une comete." 

4250 PR I NTCHR* ( 129) "*"CHR*( 130) "L 
a montee rapide n'est validee que" 

4260 PRINTCHR*( 130)"si votre alti 
tude est infer ieure ou " 

4270 PRINTCHR*< 130) "egale a 1900 
metres. " 

4280 PRI NTCHR* ( 129>"*"CHR*( 133) "U 
n atterrissage sur XERAGONE n'est" 

4290 PRINTCHR** 133) "egalement val 
ide que si vous atterris"; 

4300 PRINTCHR*! 133) "-sez avec la 
touche descente . " 

4310 PRINTCHR*! 129)"*"CHR*( 134) "S 
i votre reserve de carburant de— " 

4320 PRINTCHR*! 134)"vient inferie 
ure a 50 litres, l'indi-"; 

4330 PRINTCHR*! 134 )" cat ion " CHR* < 1 
33) "CARBURANT" CHR* ( 134 )"s' inscrit 
en bleu" 

4340 PRINTCHR*! 134) "ciel sur votr 
e tableau de bord. " 

4350 G0SUB8650:CLS:G0T0332O 

4360 : 

4370 REM ======================== 

4380 REM ==== CHOIX DES TOUCHES = 



4390 REM 



4400 : 

4410 D0KE3,#937C:P0KE#931D, 40 

4420 CALL#9300:REM Redef. de !!« 

4430 G0SUB8620:R*=KEY* 

4440 R*=CHR*i 1 ) :C*=CHR*!6) :8*=CHR 
*!7> 

4450 PLOTZ+9,5, CHR*( 10 ) +CHR* ( 5 ) +" 
CHOIX DES TOUCHES" 

4460 PLOTZ+9,6, CHRS! 10 ) +CHR* ( 3 ) +" 
"CHOIX DES TOUCHES" 

4470 PLOTZ, 8, CHR*(2)+" Les touche 
s de commandes de votre" 

4480 PL0TZ,9,CHR*(2)+"vaisseau sp 
at ial sont : " 

4490 PL0TZ+6-LEN ( MO* ) , 1 1 , C*+M0*+B 
*+" : "+R*+" Pour monter" 

4500 PL0TZ+6-LEN(DE*) , 12, C*+DE*+B 
*+" : "+R*+" P&ur descendre" 

4510 PL0TZ+6-LENIGA*) , 13, C*+GA*+B 
*+" : "+R*+" P6ur vous diriger a gauc 
he" 

4520 PL0TZ+6-LEN(D0») , 14, C*+D0*+B 
*+" : " +R*+" Pour vous diriger a drai 
te" 

4530 PL0TZ+6-LEN!MR*) , 15, C*+MR*+B 
*+" : "+R*+" Pour monter rapidement" 

4540 PL0TZ+6-LENIPA*) , 16, C*+PA*+B 
*+" : "+R*+" Pour commuter la pause" 

4550 REM 

4560 FORN=1T01 3: PRINT: NEXT :P0KE61 
8,3 

4570 PRINT" Voulez-vous changer ce 
s touches ? " ; 

4580 GETR* : IFR* < > " 0" ANDR*< > " N" THE 
NPING:G0T04580ELSEPRINTR* 

4590 IFR*="0"GOT04620ELSEP0KE61B, 
10 

4600 CLS:D0KE3,#93A4:P0KE#931D, 10 

4610 CALL#93O0:G0TO3320 

4620 WAIT30:PRINT 

4630 PRINTCHR*! 129) "Pour monter ? 

4640 REPEAT : M0=PEEK ( #208 ) : M0*=KEY 
* : UNT I LMO < >5 6ANDM0*< > " " 

4650 TT=M0 : T*=M0* : G0SU68730 : M0*=T 
* 

4660 PRINTCHR*! 129)"Pour descendr 
e ? " ; 

4670 REPEAT : DE=PEEK ( #208 ) : DE*=KEY 
* : UNT ILDE< > 56ANDDE < ; M0ANDDE*<> " " 

4680 TT=DE : T*=DE* : G0SU8B730 : DE*=T 
* 

4690 PRINTCHR*(129)"Pour vous dir 
iger a gauche ? " ; 

4700 REPEAT :GA=PEEK( #208) :GA*=KEY 
* : UNTILGAO56ANDGAOM0ANDGA ODEAND 
GA*<>"" 

4710 TT=GA : T*=GA* : G0SUB8730 : GA*=T 
* 

4720 PRINTCHR*! 129)"Pour vous dir 
iger a droite ? " ; 

4730 REPEAT : D0=PEEK ! #208 ) : D0*=KEY 
* 

4740 UNTILD0O56ANDD0OM0ANDD0OD 
EANDD0OGAANDD0*<>" " 

4750 TT=D0 : T*=D0* : G0SUB8730 : D0*=T 
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LA MISSION 

Dans ie but meritoire et salutaire de souffler un incendie 
devastateur, effectuez un periple mouvemente en compa- 
gnie de dynamite... 

Jean-Christophe BELLISSIME $ 



pes <?*e <w Fm 
T* te t(*re$ sn J 




SUITE DU 
N°137 



2310 C = PEEK (49200) 
2320 NEXT LI 

2330 VTAB 7: HTAB 2: & "VOUS ET 
ES ARRIVE A LA PREMIERE BASE 

If 

2340 VTAB 9: HTAB 2: & "AVEC : 
"jVj* VIES" 

2350 FOR I = 1 TO 40: VTAB 19: H 
TAB I : & " " : NEXT 1 : FOR 00 = 1 T 
2500: NEXT 00 

2360 GOTO 2800 

2370 REM *************** 

2380 REM ** FIN *** 

2390 REM *************** 

2400 HOME 

2410 FOR J = 130 TO 135 

2420 POKE 28, J: CALL 62454 

2430 NEXT J 

2440 FOR LI = 6 TO 18: VTAB LI: 
HTAB 1 

2450 & " 

2460 NEXT LI 

2470 E* = "VOUS AVEZ PERDU VOTRE 

DERNIER VEHICULE" 
2480 VTAB 7: HTAB 1 : & E* 
2490 VTAB 17: HTAB 1: & "VOULEZ 

VOUS REJOUER : " s 
2500 GET REP* 
2510 IF REM = "O" THEN & "0": 

FOR I = 1 TO 100: NEXT 1 1 PR 
INT " ": RUN 1010 
2520 IF REP* = "N" THEN & "N" : 

FOR I = 1 TO 100: NEXT I: TE 
XT : HOME : END 
2530 IF REP* < > "O" OR REP* < 
> "N" THEN S = PEEK ( - 16336) + 

PEEK (49200): GOTO 2490 
2540 REM 1 1 1 II 1 1 1 1 1 ! 1 1 1 1 1 1 1 1 1 
2550 IF PP2 < =4 THEN RETURN 

2560 PP2 = PP2 - 1 
2570 VTAB 17: HTAB PP2: & A*: VT 
AB 18: HTAB PP2: & B* 
2580 RETURN 
2590 IF PP2 > =14 THEN RETURN 

2600 PP2 = PP2 + 1 

2610 VTAB 17: HTAB PP2: & A* : VT 
AB 18: HTAB PP2: & B* 

2620 RETURN 

2630 REM : : : : : : : : : 

2640 REM : NOMB. DE VIES : 

2650 REM :::::: 

2660 REM **** NOMBRE DE VIES * 
*** 

2670 TEXT : HOME 

2680 FOR I = 1 TO 40: VTAB 1: HT 
AB I i PRINT "": VTAB 3: HTAB I: P 
RINT "": POKE - 16336,0: NEXT I 

2690 VTAB 2: HTAB 14: PRINT "NO 

MBRE DE VIES" 
2700 VTAB 111 HTAB 12: PRINT "< 

1> — 8 VIES 
2710 VTAB 13: HTAB 12: PRINT "( 

2> — 6 VIES 
2720 VTAB 15: HTAB 12: PRINT "< 

3> — 4 VIES 
2730 VTAB 17: HTAB 12: PRINT "< 

4> — 2 VIES 
2740 POKE-- 16368,0: WAIT - 1 

6384,128: GET E* 
2750 IF E* = "1" THEN VTAB 111 
HTAB 12: INVERSE : PRINT "> 

1<": FOR I = 1 TO 500: NEXT 

1 1 NORMAL :V = 8: RETURN 
2760 IF E* = "2" THEN VTAB 13: 
HTAB 12: INVERSE : PRINT "> 

2<": FOR I = 1 TO 500: NEXT 

I : NORMAL :V = 6: RETURN 
2770 IF E* = "3" THEN VTAB 15: 
HTAB 12: INVERSE : PRINT "> 

3<": FOR I = 1 TO 500: NEXT 

I: NORMAL :V = 4: RETURN 
2780 IF E* = "4" THEN VTAB 17: 
HTAB 12: INVERSE : PRINT "> 

4<": FOR I = 1 TO 500: NEXT 

1 1 NORMAL :V = 2: RETURN 
2790 IF E* < "1" OR E* > "4" THE 
N S = PEEK ( - 16336) + PEEK (4 

9200) : GOTO 2700 



2800 REM ********************* 
2810 REM **** PARTIE N 2 **** 

2820 REM ********************* 
2830 c OR 1 = 6 TO IS: VTAB 1 1 HT 
AB 1 : i " 

" : NEXT I 
2840 M = 0:PP2 = 16 
2850 REM *** DECOR N.2 *** 
2860 HCOLOR= 2: HPLOT 40,144 TO 
40,128 TO 32,120 TO 0,120 
2870 HPLOT 16,119 TO 16,80 TO 3 

2,80 TO 40,72 TO 40,64 TO 32 

,56 TO 0,56 
2880 FOR I = 64 TO 72 STEP 2: HC 
OLOR= 5: HPLOT 0,1 TO 32,1: NEXT 

I 
2890 FOR L = TO 14: HCOLOR= 7 

: HPLOT L,81 TO L, 1 19: NEXT 

L 
2900 HCOLOR= 7: HPLOT 224,144 TO 
224,128 TO 232,120 TO 279,120: HC 
OLOR= 6: HPLOT 248,119 TO 276,33 
2910 HPLOT 252,119 TO 279,34 
2920 FOR I = 153 TO 190: HCOLOR= 
1: HPLOT 0,1 TO 279,1: NEXT I 
2930 VTAB 20: HTAB 2: & "SCORE 

: ";SC* 
2940 VTAB 22: HTAB 2: «t "DOMMAG 

E DE LA BASE : /100" 
2950 VTAB 24: HTAB 2: & "METEOR 

ES : " ;MEj" /20": VTAB 24: HT 
AB 25: & "CANONS : " ;V 
2960 VTAB 18: HTAB PP2: & "qr" 
2970 P = PDL (0) 
2980 IF Y = 18 THEN M = 0:DO = 

DO + 10:SD = PEEK (49200) + 
PEEK ( - 16336) 
2990 IF M ( > 1 THEN GOSUB 31 

50 
3000 Y = Y + .5: VTAB Y: HTAB 8 + 
X: & "*" 
3010 VTAB Y - .5: HTAB 8 + X: & 

3020 VTAB 22: HTAB 24: & DO: VTA 
B 24: HTAB 13: & ME;" /20" 

3030 IF DO ■ 100 THEN GOSUB 32 
10: GOTO 3530 

3040 IF Y = 18 AND (8 + X = PP2 
OR 8 + X = PP2 + 1) THEN V = 

V - 1 : VTAB 24 : HTAB 34:4" " : 
VTAB 24: HTAB 34: & V: FOR 
Z = 1 TO 37: VTAB 18: HTAB P 
P2: & "nn":S = PEEK ( - 163 
36): NEXT Z : FOR Q = 1 TO 90 
0: NEXT Q 

3050 IF V ( =0 THEN 3400 

3060 IF ME = 20 THEN 3270 

3070 IF P < 10 THEN GOSUB 3620 

3080 IF P > 200 THEN GOSUB 365 


3090 VTAB 18: HTAB 7: & " 

3100 VTAB 18: HTAB PP2: 4 "qr" 
3110 IF PEEK ( - 16287) = > 1 

28 THEN GOSUB 3170 

3120 S* = ( STR* (SCO)):SC* = LE 

FT* ("000000", 6 - LEN (S*)) + S* 

: VTAB 20: HTAB 10: 4 SC* 

3130 IF SCO = B + BO THEN VTAB 

111 HTAB 14: & "BONUS : 1 VIE": PR 

INT CHR* (7) + CHR4 (7): FOR I = 

1 TO 2000 : NEXT I : VTAB 1 1 : HTAB 
14: & " ":SC0 = SCO + 

50 :B = B + 600 :V = V + 1: VTAB 24 
: HTAB 34: & V 
3140 GOTO 2970 

3150 X = INT ( RND (1) * 25) :Y = 
6:M = 1 : RETURN 
3160 REM ** TIR ** 
3170 FOR I = 17 TO 7 STEP - 1: 
VTAB I : HTAB PP2 + 1 : & "ffl" 
:S = PEEK (49200): NEXT I 
3180 FOR E = 17 TO 7 STEP - 1: 
VTAB E : HTAB PP2 + 1 1 & " " 
: NEXT E 
3190 IF PP2 + 1 = 8 + X THEN FO 
R I = 1 TO 1 1 : VTAB Y : HTAB 8 + X 
: & "n":S = PEEK ( - 16336) 
: VTAB Y: HTAB 8 + X: 4 " ": 
NEXT I:M = 0:ME = ME + tiSC 
= SCO + 50 
3200 RETURN 
3210 REM **** DOMMAGE BASE *** 

* 
3220 FOR I = 130 TO 135: POKE 2 

8,1: CALL 62454: NEXT I 
3230 FOR I = 6 TO 18: VTAB I: HT 




Fu*M& 9m F£U 



m 



AB 1 




3240 


'j.. 


3250 


NEXT I 


3260 


RETURN 


3270 


REM *** 


3280 


GOSUB 3370 


3290 


FOR I = 6 TO 18 


3300 


VTAB I : HTAB 1 : k 



3310 NEXT I 

3320 VTAB 8: HTAB 1: & "VOUS AV 
EZ ELIMINE TOUS LES METEORES 

3330 VTAB 10: HTAB 1: & "IL VOU 
S RESTE : ";V;" VIES" 

3340 VTAB 12: HTAB 1: & "LA BAS 
E A : "(DOjVlOO DE DOMMAGES 

3350 FOR I = 1 TO 2000: NEXT I 

3360 GOTO 3680 

3370 REM *** FIN *** 

3380 FOR 1 = 33 TO 45: HCOLOR= 

0: HPLOT 260,1 TO 279,1: NEXT 
I 

3390 RETURN 

3400 REM ********** 

3410 REM ** FIN 1** 

3420 REM ********** 

3430 FOR I = 130 TO 135: POKE 2 

8,1: CALL 62454 : NEXT I 

3440 FOR I = 6 TO 18: VTAB I: HT 
AB 1 

3450 & " 

3460 NEXT I 

3470 VTAB 8: HTAB 1: & "VOUS AV 
EZ PERDU VOTRE DERNIER CANON 

3480 VTAB 16: HTAB 1: & "VOULEZ 

VOUS REJOUER : " ; 
3490 GET R* 

3500 IF R* = "0" THEN & "0": FO 
R I = 1 TO 200: NEXT I: PRINT : PR 
INT : PRINT : GOTO 3590 

3510 IF R* = "N" THEN & "N" : FO 
R I = 1 TO 200: NEXT I: TEXT : HOM 
E : END 
3520 IF R* ( > "0" OR R* < > 

"N" THEN 3490 
3530 REM ** BASE DETRUITE ** 

3540 REM 

3550 VTAB 8: HTAB 1: & "LA BASE 

QUI ETAIT SOUS VOTRE" 
3560 VTAB 1 : HTAB 1 : & " COMMAN 
DEMENT A ETAIT DETRUITE PAR" 

3570 VTAB 12: HTAB 1: & "LES ME 

TEORES." 

3580 GOTO 3480 

3590 REM ******** 

3600 PRINT " " : RUN 1010 

3610 REM ******** 

3620 IF PP2 < =7 THEN RETURN 

3630 PP2 = PP2 - 1 

3640 RETURN 

3650 IF PP2 > = 31 THEN RETURN 

3660 PP2 = PP2 + 1 
3670 RETURN 

3680 REM ** SUITE PROG. 3 ** 

3690 SL '= 2 

3700 C* = "xyyx" 

3710 V* = "tuv" 

3720 AR* = "OK" 
3730 REM *** DECOR *** - 
3740 FOR X = 6 TO 18: VTAB X: HT 
AB 1 
3750 & " 

3760 NEXT X 

3770 FOR I = 144 TO 190: HCOLOR= 
1 : HPLOT 0,1 TO 279,1: NEXT I 
3780 VTAB 20: HTAB 2: & "SCORE 

: "jSC* 
3790 VTAB 22: HTAB 2: & "VAISSE 

AUX : ";V 
3800 FOR Q = 33 TO 47: HC0L0R= 

7: HPLOT 0,0. TO 279,0: NEXT 

Q 
3810 X = HiXl = 4:Z = 72:D = 74 

:M = 0:M1 = :M2 = :M3 = 0: 

M4 = 0:M5 = 0:M6 = 
3820 REM ** BOUCLE PROGRAMME ** 

3830 X = lllXl = 4:M = 0;M1 = 0: 
M2 = 0:M3 = 0:M4 = 0:M5 = 0: 



M6 = 
3840 VTAB 22: HTAB 14: 4 V 
3850 IF V < =0 THEN 4770 
3860 D = D + .2 
3670 IF M < ':■ 1 THE'. GOSUB 44 

80 
3880 Y = Y - 1 : HTAB Y: V T AB 9 + 
C I & " _ " 
3890 IF Y = 3 THEN HTAB 3: VTAB 
9 + C: & " " :M = 
3900 IF Ml < ) 1 THEN GOSUB 4 

490 
3910 Yl = Yl - .5: HTAB Yl : VTAB 
9 + CI: & "" " 

3920 IF Yl = 3 THEN HTAB 3: VTA 
B 9 + CI: & " " :M1 = 
3930 IF M2 < > 1 THEN GOSUB 4 

500 
3940 Y2 = Y2 - 1 : HTAB Y2: VTAB 

9 + C2: & "■ " 
3950 IF Y2 = 3 THEN HTAB 3: 'VTA 
B 9 + C2: & " ":M2 = 
3960 IF M3 < > 1 THEN GOSUB 4 

510 
3970 Y3 = Y3 - .5: HTAB Y3: VTAB 
8 + C3: & "z " 

3980 IF Y3 = 3 THEN HTAB 3: VTA 
B 8 + C3: & " " :M3 = 
3990 IF M4 < > 1 THEN GOSUB 4 

520 
4000 Y4 = Y4 - 1: HTAB Y4: VTAB 

8 + C4: & "z " 
4010 IF Y4 = 3 THEN HTAB 3: VTA 
B 8 + C4: & " ":M4 = 
4020 IF M5 < > 1 THEN GOSUB 4 

530 
4030 Y5 = Y5 - 1: HTAB Y5 : VTAB 

8 + C5: & "z " 
4040 IF Y5 = 3 THEN HTAB 3: VTA 
B 8 + C5: & " " :M5 = 
4050 IF M6 < > 1 THEN GOSUB 4 

540 
4060 Y6 = Y6 - 1: HTAB Y6 : VTAB 

8 + C6: 4 "z " 
4070 IF Y6 = 3 THEN HTAB 3: VTA 
B 8 + C6: & " ":M6 = 
4080 P = PDL (P 
4090 VTAB X: HTAB XI: & V* 
4100 IF P ( 10 THEN GOSUB 4280 

4110 IF P > 200 THEN GOSUB 433 


4120 IF 9 + C = X AND (Y =' XI OR 
Y < XI + 3) THEN GOSUB 4550 
4130 IF 9 + CI = X AND (Yl = XI 
OR Yl < XI + 3) THEN GOSUB 
4550 
4140 IF 9 + C2 = X AND (Y2 = XI 
OR Y2 < XI + 3) THEN GOSUB 
4550 
4150 IF 8 + C3 = X AND (Y3 = XI 
OR Y3 < XI + 3) THEN GOSUB 
4550 
4160 IF 8 + C4 = X AND (Y4 = XI 
OR Y4 < XI + 3) THEN GOSUB 
4550 
4170 IF 8 + C5 = X AND (Y5 = XI 
OR Y5 ( XI + 3) THEN GOSUB 
4550 
4180 IF 8 + C6 = X AND (Y6 = XI 
OR Y6 < XI + 3) THEN GOSUB 
4550 
4190 A = INT ( RND (1) * 5) 
4200 IF A = 3 THEN GOSUB 4280. 
4210 IF A = 2 THEN GOSUB 4330 
4220 HCOLOR= 6: HPLOT Z , 20 TO D 

,20 
4230 IF D > = 142 AND AR* = "0 

K" THEN 4650 
4240 SL = SL - 1 
4250 VTAB 7: HTAB SL: & C*;C*;C 

* i C* i C* i C* i C* i C* ; C* 
4260 IF SL < 2 THEN VTAB 7:SL = 
6 

4270 GOTO 3840 
4280 IF X < =8 THEN GOSUB 43 

80 
4290 X = X - 1 
4300 VTAB X: HTAB XI: & V* 
4310 VTAB X + 1: HTAB X! : & " 

4320 RETURN 

4330 IF X > 17 THEN CC = 18lCCl 

= 18:CC2 = 3: GOSUB 4380 
4340 X ■ X + 1 
4350 VTAB X: HTAB XI : & V* 
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BIZARRE AUTANT 
QU'ETRANGE 



Bizarre de se retrouver dans un univers impitoyable a la suite 
d'une banale promenade dans le desert. Etrange de ce voir 
offrir ici huit jeux pour le prix d'un... 

Francois SCHNEIDER 

Mode d'emploi : 

Necessity de I'extension 16 Ko. Tapez et sauvegardez a la suite ces trois 

programmes. Avant le chargement, n'oubliez pas les pokes magiques : 

POKE 44,24 : POKE 6144,0 

Les regies sont incluses. 
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LISTING 1 



1 REN************************** 

3 REM BIZARRE RUTRNT QU'ETRANGE 

4 REN 

5 REMPRR: OLIVIER SCHNEIDER 

6 REN ET STEPHflHE LEGUENEC 

7 REM SUR VIC20+EXTEHSIOH 16KIF 
3 REM************************* 

9 PI =7 12 P0KE3687S, 10 

10 PRIHT'TBEIZRRRE" : P0KE36877, 187 : 
FORT=1TQ80 : NEXT : PQKE36877, 

15 F0RT=1T0PI :NEXT:PRINT."3":GOTO40 

20 P0KE2 1 4 , 1 : PR I NTTRB C 5 ) " M3AUTRHT 

" P0KE36877, 221 : FORT=1TO30 : NEXT : PO 

KE36877,0 

25 F0RT=1T0PI : NEXT : PR I NT "^" ■ GOTO40 

30 P0KE214,21 :pRIHTTABC10)"MH3U'ET 

RANGE " : P0KE36877,233 ■ FORT=1TO80 i HE 

XT:POKE36877,0 

35 F0RT=1TGPI : NEXT I PR INT" 3" 

40 A=IHTCRNDCl)*3)+l:PI=PI-50: IFPI 

•C10THEH50 

45 OHA B0TO10,20,30 

50 PRIHT'TIMBIZARRE" 

53 POKE214,10 : PRIHTTABC5)"M3AUTRHT 

35 POKE214,21:PRIHTTRBC10)"M«QU'ET 
RAHGE" 

56 FORT=0TO13 : FORJ=1TO70 : NEXT J : REA 
DV:P0KE36375,Y: HEXTT 

57 DRTR203, 203, 203, 209, 221 , 221 , 213 
,213,215,215,221,221,213,219 

58 FORK=238TO221STEP-2:FORT=1TO40: 
NEXT i P0KE36875, K : NEXT 

70 REN ** GRAPHISNE ** 

30 FOR I =0TO247 ■ READFA ■ POKES 1 20+ 1 , F 

R: NEXT I :POKE36375,0 

100 DRTR16, 124, 16,56,80,56,68, 136, 

24,60,126, 126,126,126,60,24,0,30,3 

0,124,24,24, 102,66,0 

102 DRTR0, 0, 0, 0, 0, 0, 0, 0, 224, 252, 60 
,138,24,7,7,255,255,255,255,255,25 
5,255,255 

104 DHTA160, 160, 160, 160, 160, 160, 16 
0,160,5,5,3,5,5,3,5,5 

106 DRTR255, 0,255, 0,0, 0,0, 0,0, 0,0, 
0,0,255,0,235,8,28,8,28,42,28,20,5 
4 

107 DATA126,66,66,66,74,66,66,126, 
126,66,66,66,74,66,66,126 

108 DRTR0, 31 , 48, 62, 48, 64, 1 12, 88, 30 
,255, 14,22,38, 14,6, 14,64, 112, 120, 1 
27,120,124,124,124 

103 DATR14, 38, 30, 254, 30, 30, 30, 30, 
,0,64,255,64,0,0,0,2,4,72,240,32,0 
,0,0 

110 DATR0, 32, 224, 80, 8, 4, 2, 0,0, 0,2, 
255,2,0,8,0,64,32,20,15,8,0,0,0,0, 
8,7,10,16,32,64,0 

111 DRTR30,36,72,72,36, 18,54,0,124 
,68,48,40,68, 130,198,0 

112 BATR124,214,254,84,85,63,125,1 
9,255, 171,213,171,213,255,129,129 

114 BATA24, 36, 66, 129, 0,0, 0,0, 0,0,0 
,0,123,66,36,24,8,4,2,1,1,2,4,8 

115 DRTR16,32,64,128, 128,64,32,16 
300 PRINT"T' : INPUT"IiIS,QUEL EST TO 
N N0M";N* 

310 PRIHT'TMHE BIEH, " ; N* : PRINT"MDU 
RANT CE JEU..T0UT » :PRINT"M"N*; " QU 
E TU ES, " 

320 PR I NT "MTU SERAS UN PETIT BONtlM 
HOMME FIU CHRPERU " 

321 PRIHT"MRPPUIE SUR UHE TOUCHE" 

322 GETR* : IFR*=""THEH322 

323 POKE36863,205:PRIHT"r]" :P0KE214 
,10: PRINTTRBU0) "MHXIFMUJ" 

325 FORT=1TO5000 : NEXT ■ P0KE36863, 13 

2 

330 PRINT'THPJRRNT CE JEU,RUSSI,SI 

MTU HE FRIS PRS RTTEH ST I ON, IL PE 

UT BIEH" 

340 PRIHT"WT"ARRIVER CELH : " : PRINT" 

SRPPUIE SUR UHE TOUCHE" 

350 GETR*: IFA*=""THEN350 

360 PR I NT " T i P0KE36869 , 205 : P0KE363 

78 , 5 : P0KE2 1 4 , 1 : PR I NTTRB ( 1 ) " M3 " 

370 NX=20 

375 POKES 1 4 , 1 : PP I NTTRB ■: NX ) " MB " : PO 
KE36875, 221 : FORT=1TO200 i NEXT : P0KE3 
6875,0 

376 IFNX=11THEN380 

377 POKES 1 4 , 1 : PR I HTTflB ( MX ) " MC " : NX 
=MX- 1 : G0T0375 

380 PR I NT " 3" : P0KE36869 ,192: POKES 1 4 

, 1 : PR I NTTRB < 8 ) " Ml I AM ! " ■' : P0KE36874 

,221 :FORT=1TO1000NEXT 

385 POKE35874,0:PRINT"3":POKE36869 

, 205 : P0KE2 1 4 , 1 : PR I NTTRB (IB)" MB " 

390 FORT=1TO30O0 : NEXT P0KE36869, 13 

2 ■ PR I NT "J 

410 PR I NT "POUR BONNER HES MI 

NSTRUCTIOHS TU RS MDEUX FACOHS" 

FORI=1TO8000:NEXT 
440 PRIHT'TMIDDIRECTEMEHT EH APPUV 
MRNT SUR LES TOUCHES : " 
450 PR I NT "M** POUR NOHTER" 
460 PRINT"KSBl:POUR DESCENDRE" 
465 PR I NT "M5FB ; POUR TA GRUCHE" 



470 PRINT"MSJS:POUR TR DROITE" 

475 PR I NT "M3FS: POUR RETOURNER SURM 
KITES PRS" 

476 PR I NT "MET Lfl BRRRE ESPRCE M 
POUR SRUTER" 

480 PRIHT"MMRPPUIE SUR UHE TOUCHE" 
490 GETR* : I F A*= " " THEH430 
500 PR I NT "3923 A VEC DES ORBRES PRE 
MCISES RVEC DES VERBES MR L' INF IN I 
TIF POUVRHT" 

510 PR I NT" METRE SUIVI S D'UN COM M 
PLEMEHT" 

520 PR I NT "HEXEMPLESCLES ORDRES SEM 
PLRCENT RPRES UN 7CIMPMUT)" 
530 PRINT"MTRPE UHE TOUCHE" 
540 GETR*: IFfi*=""THEN540 
550 PRINT"3«? PRENDRE UN OB JET 
M? COURIR 

580 PRINT"MTRPE UHE TOUCHE" 
530 GETR*IFR*=""THEH530 
600 PRINT'TEGHHE CHHHCE" : PRINT "MMT 
APE SHIFT/RUN STOP XPUIS REVIENT 
DAHS 5MH" 



LISTING 2 



VT=210:GOTO139 

10 REM* OUVERTURE DE PORTE * 

12 P0KE36873, 15 : B=0 : P0KE36876, 254 
14 FORL=200TO150STEP-1 :R0KE36874,L 
:FORM=1TO60:HEXTM 

16 B«B+1 •■ IFB-3THENB-0 

13 HEXTL : P0KE36874, : P0KE36878, : P 
OKE36377..0 

20 RETURN 

100 PT=1 : FE=20 : GOSUB300 

101 GOSUB300 

102 G0T0874 

110 PT=3FE=15:GOSUB300 
113 GOTO900 

120 GOSUB300 

121 POKE36869,205:PRIHT"n"TABC6>"M 
MHMMMI 1 1 1 1 IIIHIIIFSIIIFIIlIIilHII 
■•FrnmiFCG" 

122 GETH* 

1 23 I FH*= " R " ORH*= " B " THEN874 

124 IFH*="J"THEH130 

125 GOT0122 

130 PT=1 : FE=20 : GOSUB300 

133 PRIHT"MMPUIS TU PEHETRES DRNS 
MUN LABIRVHTE" 

1 34 FORT= 1 TO6000 : NEXT : RS=0 : GOTO400 


140 P0KE36863, 192: PRINT 'THTO) MARCH 
ES TRANQUILLE MQURND SOUDRIH UH HO 
MMEMCOURT VERS TO I" 

141 PRINT"M£T TE CRIE:" 

142 PR I NT" MB N'RLLEZ PRS PRR LA ! ! ! 

143 GETS* : IFS*="V"THEH150 

144 IFS*="R"ORS*="B"THEN900 

145 GOTO 143 

150 PRINT":]" : P0KE36873, 152:PT=3:G0 
SUB300 

151 PRINT"MWDEVAHT TO I : 
ST I ENS , UN LAB I RVNTE . . . " 

152 FORT=1TO6000 i NEXT ; RS=2 : GOTO400 


199 VT*VT+20 

200 PRINT"T : P0KE36863, 132 : SC=SC+E 
R+R+PQ+CS+CR-H)+CO-Z) : VT=VT-20 
205 IFJE»1THENPRINT"3SC0RE: "SC" ! " 
210 P0KE36877, : P0KE36874, : P0KE36 
876, : P0KE36875, : IFJEO 1THENSC=0 : 
ER=0 : R=0 : PQ=0 : CS=0 

2 1 3 P0K.E36878 , : JE=0 : PR I NT " MJEUX 1 
CRVEHTURE)IH»iKDU JEUX 2?" 

216 GETR*: IFR*="2"THEHJE=1 : G0T0499 

217 IFR*="1"THEH433 
220 IFR*«""THEN216 
222 C0T0216 

295 REM * MRRCHE * 

300 0T= 1 1 : P0KE36878 ,15: P0KE36873 , 2 
5R=0:IFPT=1THEHOT=10 

301 P0KE36869, 205: PRINT "fa" TRBC9)" 
F " SPC C PT ) " G " : FORT= 1T0FE ■ PR I NTTRB C 3 
;."F"SPCCPTV'G":HEXT 

310 F0RL=1T0FE 

320 I FR= 1 THENP0KE36874 , 150 = R=0 : PR I 

NTTRB COT)"TC" 

325 IFR=0THEHPOKE36874, 210: R=l : PR I 

NTTRB < OT) "me " 

330 FORT=1TO10:HEXT : P0KE36877, 254 

F0RT=1T03: HEXTT 
340 P0KE36874 , : P0KE36877 , : FORT= 1 
TO50 : NEXT 

350 FORM=1TO10O : HEXTM : HEXTL ■ P0KE36 
878, : FE=10 : P0KE36863 , 1 92 : PR I NT " T 

: RETURN 
438 SC=SC+ER+R+PQ 

493 IFJE=1THEHP0KE36878, 14-'FE=10:P 
0KE36867 , 46 : CS=SC : SC=0 ■ ER=0 : R"0 : PQ 
=0 : GOTO2000 

500 PRIHT'Tl" : P0KE36879, 8 i P0KE36369 
,192: RESTORE : P0KE36378, 14 : FE=10 : PO 
KE36367,46 

550 PRINT"SMMMII*TU ES DANS LE DESE 
RT" 



560 PR I NT "MTU HE SRIS PRS OU TU M 

ES. " 

570 PRINT"MMMRH! ! ! TU TOMEES DRNS 

MUH TROU :«C:IEL! " 
580 FORT=1TO4500 : NEXT : P0KE36878, 15 

: H=250 : FORT= 1 TO 1 30 : H=H- 1 : P0KE36876 

,H:NEXT:POKE36875,0 

600 PR I NT "m" : P0KE36879, 24 : P0KE368 

78, 1 :POKE36863,205 : POKE36874, 135 ; R 

*="0" 

610 PRINTTHBC 10) "MSSeFirjMHFIC-MHI 

IF»C!«ilFSLilMFIC(lMF>r JIMFiriBIl 

IIFIC" 

650 GETQ* 

660 IF G*="V"THEH 874 

670 IFQ*="B" THEN PQ=1:G0T0 3300 

680 IFQ*="R"THEH6020 

685 REM *** JACKPOT ** 

630 GOTO650 

693 G0SUB10 

694 PRIHT'TIWOUR JOUER NETS UHE 
KPIECE D' OR C TOUCHE ST") MIR IS SI T 
U VEUX, " 

695 PRINT "MTU PEUX SORTIR" : IHPUTR* 
: P*=LEFT*CR*, 2> : IFR*=" t"RNDPV>0THE 
N693 

636 IFP*="S0"0RP*="PR"THEHPT=1 :OHG 
P+1GOTO600,300 

637 G0T0695 

698 PV»PV-l : PRINT"rWrU AS"PV "PIECE 

700 P0KE36873, 106 : P0KE36378, 13:X*C 
1)«"«" :X*C2)="*":X*C3)="0":X*C4)=" 
t" :TM=0 

701 PR I NTTRB (10) " r -, " 

702 PRINT TRBC10>"I«»**I" 

703 PRIHTTRBC10)"I I" 

704 PRIHTTAEC10)"IJACKI" 

705 PRINTTRBC 10) " I I" 

706 PR I NTTRB CIO) "I I " 

707 PRINTTRBCIOVI 1" 

70S PR I NTTRB C 1 0) " 1 0000 I J" 
703 PR I NTTRB C 1 ) " I /\/\ I " 

710 PRINTTRBC 10) " I SA/I " 

711 PRIHTTABC10)"IPOT I" 

712 PRINTTREC10)" I 1" 

713 PRIHTTREC10)"-' 

718 PRINT-KPOUR JOUER RPPUIES SURM 

LA BARRE ESP ACE" : 

720 GETA*:IFR*=" "THENPOKE4096+16+ 

(22*3), 80 

725 IFA*=""THEH720 

727 FORT=235T0255STEP2 : P0KE36376, T 

: P0KE36876, : HEXTT : P0KE36876, 

730 Al=IHTCRHDCl)*4)+l:P0KE214,5:p 

RIHT"M"TRBC11)X*CR1) 

735 H2= I NT C RHD C 1 ) *4 ) + 1 : P0KE2 1 4 , 5 : P 

R INT " M" TRE <■. 1 2 ) X* C R2 ) : P0KE36876 , 200 

740 R3= I NT C RHD C 1 ) *4 ) + 1 : P0KE2 1 4 , 5 : F 

R I NT " M" TAB C 1 3 ) X* CAS ) : P0KE36876 , 200 

745 R4=IHTCRHDC1)*4)+1 :P0KE214,5:P 

RIHT"M"TRBC14)X*CR4):POKE36376,200 

750 P0KE36876 , : FORT= 1 TOTM : NEXT : TM 

=TM+5: IFTM=2O0THEN760 

755 GOTO730 

760 IFX*CR1)=X*CH2)RHDX*CR1)=X*CR3 

) RHDX* C R 1 ) =X* C R4 ) THEN800 

765 IFX*CR1)=X*CR2)0RX*CA3)=X*CR4) 

THEN775 

770 FORT=1TO2000 I NEXT : G0T0634 

775 I FX* C A 1 ) =X* C R2 ) THEN785 

777 IFX$<R3>="0"THENPRINT"»rU AS 
ACHE 8PIECES ":PV=PV+8 

778 IFX*CA3) = "*"THEHPRIHT"WU AS G 
RGNE 4PIECES ":PV=PV+4 

779 IFX*CA3) = "*"THEHPRIHT"m"U RS C 
■ pv=PV+2 
•"THENPRINT"STU RS G 

: PV=PV+4 
0"THENPRINT"STU RS G 

: PV=PV+3 
t"THENPRINT"HTU RS G 

: PV=FV+2 



ACNE 2PIECES 

785 IFXJCR2) 
RGNE 4PIECES 

786 IFX*CA2) 
RGNE 8PIECES 
737 IFX$CR2) 
RGNE 2PIECES 
790 : FORT= 1 TO40O0 : NEXT : G0T0694 
300 IFX*CA2)="t"THEHPRINT"«TU RS G 
RGNE 1 DIAMRND" : PV=PV+100 

801 IFX*CR2)="*"THEHPRIHT"SrU RS G 
ACHE 1 0D I AMAND " : PV=PV+ 1 00 

802 IFX*Cfl2) = "0"THEHPRINT"SjrU RS G 
RGNE 50D I RMAHTS " : PV=PV+ 1 00 

803 FORT= 1 TO400O : NEXT : GOT0694 
374 PT= 1 : FE= 1 : COSUE380 

875 P0KE36869, 205 : PRIHT'TTTAECS) "M 

msi 1 1 1 1 •iiiiifl : fiiim : l fiini 

IFCZCG" 

376 POKE36874,220 

377 PRINTTRBC5)"HHHCCCCCHHH" : PRINT 
TREC10)"I3CCBCC" 

878 PRIHTTAEC5) " 1 1 1 ICCCBCCE" : PRINT 

TABC9) "FCC 1 1 II": PRINTTABC9) "FCC" 

883 GETH*: IFW*=" "THEH883 

885 I FW$= " J " THENPT=3 : GOTO900 

387 I FU*= " F " THENP0KE36369 , 1 32 : GOTO 

120 

890 I FU*= " R " ORW*= " E " THEHCOTO6O0 

891 IFN$="V"THEH6049 

892 G0T0833 

900 P0KE36S63 , 205 : PR I NT " ■3JHM" : POK 

E36373, 253 : QP=0 : GOSUE30O 

3 1 P0KE36869 , 205 : PR I NTTRB C 8 ) " FCCB 

GM»HMFBCCGMHUUWHHHCBCCGMHHNU 



IIIIEKCII" 

922 PR I NTTRB C5) "HHHFCCCGH1MMFBCB 

G" 

92Q GETE* : I FE*= " " THEH93G 
340 IFE*="J"THENG0T03918 
950 IFE*="F"THEH140 

955 IFE*="V"THENCOTO1000 

956 IFE*="R"RHDPQ=1THEH6160 
958 IFE*="R"0RE*="E"THEH874 
970 G0T0930 

980 G0T094Q 

1O00 PRINT'TE" : P0KE36879, 25 : G0SUB3 

00 

1005 POKE36369,205 

1010 PR I NTTRB C 6 ) " MMMMMHHHHHHHHHHHM 

■ ■■■■■■■E'LBCEMIlin" 

1020 PR I NTTRB C 7 ) "ECCBCBMiilMIII I IB 

CCCBII I " : PR I NTTRB C 10) "FBCCG" 

1050 GETR*: IFR*=""THEN1050 

1055 IFR*="E"ORfl*="R"THEHGOTO900 

1060 IFR*="J"THEHE=1 : GOTO2000 

1065 IFR*="F"THEH2000 

1066 IFfl*="V"THEHP0KE36369, 192: GOT 
01082 

1080 GOTO1030 

1082 PRIHT'TISLE PRSSRHT TE REGRRDE 
ff'UIS S'RPERCOIT QU'IL MSE TE CON 

HRIT PRS!" 

1083 PRINT"MDOHC QUE TU ES UN ... 
MIL H'EST PRS CONTENT MDU TOUT, HO 

NOH ! " 

1034 PRINT"MBON RLORS,HOP! D'UN lil 
.MCOUP HE PIED DRNS LE MCUL, IL TE 
HVOIE RU ..." 

1085 F0RT=1 TO 10000 ; NEXT ; GOTO7980 
1090 REM ***POURSUITE R TROUS*** 
1400 PRINT"MET TE CRIE:" 
2000 P0KE36S69, 192 : PRINT'TJDERRIERE 

TO I, LES PRS MSAHTS TE POURSUIVEN 
T!" 

202^ PRINT"M r UISI ! ! ! ! " : P0KE36878, 1 


2030 FORT=1TO8000 : NEXT : IFE=1THEN0P 
=1 :GOTO6500 

2i T i":5 IFCQ=1THEHSC=0 ; ER=0 : R=0 ; PQ=0 : 
CS-0 : CQ=0 

2S50 PRINT'T]"^P0KE36873,26 
2060 R=l : E=8 : DE=0 : DR=1 : H=-1S : T=0 : R 
S=0 : P0KE36869, 205 : IFJEO1THENER=0 
2070 POKE4096+R+CE*22) , : P0KE3788S 
+R+CE*22) , ■ P0KE36876, 200 
2075 GETX* 

2095 IFX*="F"THEHDR=-1 :DB=0 
2100 IFX*="E"THENDH=0:DE=1 
2 102 P0KE36876 , : P0KE36874 , 

2 1 04 I FX*= " V " THENDR=0 : DB=- 1 

2105 IFX*=" "THENDR=0DB=0 
2110 IFX*="J"THENDR=1 : DE=0 

2134 IFHORBSCH)THENFORT=1TOVT : HEX 

T:G0T02155 

2 1 40 PR I NT " =■ " , TAB C H ) " EMIIBMIIBMilBMII 

BMIIBMIEMIIB'iaEMIIEMIBMIIEffllBMIBMIIBMilE 

MUBMIIEMIIBMIIBMIIEMilE" 

2 1 45 P0KE36874 , 1 60 : FORT= 1 TOVT : NEXT 

:POKE36874,0 

2150 IFROHTHENP0KE36869, 192 i PRINT 

"7HLS T'OHT RTTRRPE,TU EST DEVORE" 

: l"riTO7900 

2155 IFE>20THEHDB=-DB 

2160 IFB<1THEHDE=-DE 

2165 IFfl>21THEHR=0:DR=l H=H-22:PRI 

NT"3" :ER=ER+1 :GOSUB2205 

2170 IFfl<0THENDR=-Bfl 

2180 IFPEEKC4096+CA+DR)+CCE+DB)*22 

) ) = 1 THEHP0KE36863 , 1 92 : GOTO7800 

2 1 90 P0KE4096+A+ C E*2£ ) , 3 

£195 A = fi+DR : E--B+DB 

2208 H=H+ 1 : GOTO2070 

2205 K=INTCRND<1)*12)+10:IFER=5THE 

H2300 

2207 i p JE= 1 THENSC=SC+ 1 

2210 F0RT=1T0K 

2220 C=INTCRNDC1)*22) 

2225 V=IHTCRHDCl)*2i:' 

2227 IFPEEKC4096+C+C22*V) )=1THENG0 

T02220 

2230 POKE4096+C+C22*V), 1 :P0KE37888 

+C+C22*V),0 

2240 HEXTT 

2250 RETURN 

2300 PR I NT " ~J| " : P0KE36879 , 30 : IF JE=1 

THENSC=SC+10 : G0T03250 

2310 0V=1 : GOTO2360 

2330 GETR* : IFR*="J"THEN0P=3 : G0T065 

00 

2335 IFfl*="F"THEN0P=4 GOTO6500 

2340 GOTO2330 

2350 OV=0 : PR I NT " "J!" : F0KE36379 , 26 : P 

0KE36878, 1 

2360 FRINTTABC6 ■ " USMMHHHHHHHMMIQ 

rllllll IIPPII I " : OHOVGOTO2330 

2370 GETR*: IFR$="J"THEHKL=1 : GOTO30 

00 

2375 IFfl*="F"THENGOTO3250 

2380 GOTO2370 

2390 REM ***TROUS DE PIRRES*** 

3000 PR. I NT " T : P0KE36879 , 24 : V= 198 : M 

M=l : VI =1 : E2=0 : P0KE36867, 22 : P0KE368 

78, 13 : R=0:VR=0:V=0 

A SUIVRE... 
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YIN-YANG 



Sur une Tie magique demeure I'inaccessible YIN-YANG, 
pierre precieuse aux pouvoirs manifestes. Sachez que la 
convoitise d'un tel objet ne laisse en principe aucun repit... 



Tot , id/ 



ORIC 



T£ \fotfti 



pouj? Mo! J J 




SUITE DU 
N°137 



5+GG»3 = POKEN, 106 : NEXT 

3510 G0T03535 

3515 H= PEEK (#208) 

3520 GG=6G+(H=#8C) /3-<H=#94) /3 

3525 IFGG<OTHENGG=0 

3527 IFG6>9THENGG=9 

3530 IFH=#84THENP0KE#BFE5,GG*10:G 
G=1300+INTiGG> : RETURN 

3535 N=48006+GG*3:P0KEN+1, 4: POKEN 
+2, 48+ 1 NT (GG) : POKEN- 1, 106: POKEN, 10 
5 

35 40 POKEN+3 , 32 : G0T035 1 5 

3999 REM~~~ prise de pave ~~ 

4000 CU=CU+1 
4002 PING 

4005 R=DEEK(#A9FE+CU»2) 

4010 POKER, 101 :P0KER+21, 104: POKER 
+42, 102 

4015 ZZ=DEEK< #424) -DEEM (DEEK(#EF 
EO)-48124)/10+#ACOO)-W*21-42 

4020 W=0 

4025 POKEZZ, 32 : DOKEZZ+20, 8224 : POK 
EZZ+41 ,32 

4030 POKEDEEK ( #EFEO ) +43, 32 : POKEDE 
EK(#BFE0)+3,32 

4035 IFCU>DDTHEN4100 

4036 IFCU>99ANDDD<2THEN4100 

4037 IFCU>49ANDDD<1THEN4100 
4040 RETURN 

4100 DD=DD+30:VI=VI+1 
4105 F0RN=1T05:MUSIC1,2, 12, 15:WAI 
T6: MUSI CI, 3, 9, 15 : WAIT 10 : NEXT 
4110 PING :PLAYO, 0,0,0: RETURN 

4500 CALL#B200:WAIT200:GOSUE4505 

4501 F0RN=11T016:PL0T14,N, " 

" :PL0T16,N, 1 :PL0T15,N, 10:PL0T 
23,N,8:NEXT 

4502, PLOT 17, 13, "ujxumy" :PL0T17, 14, 
" uxuny " 

4503 GETT*:G0T04503 

4505 A*( 1 >=",-" :B*< 1 )="./" :A*<2>= 
" i < " : B» ( 2 ) = " => " : A* ( 3 ) = " < ) " : B* ( 3 ) = " 



Lionel VERDILLON 



5015 WAIT100 

5035 FORN=0T02:FORM=OTO6:PLOT33+M 
-U,2+N»9+M, NEXTM.N 

5037 FORN=2T020STEP9 : PL0T33-U, N, " 
B" :PL0T39-U,N+6, "A" :NEXTN 

5U40 F0RN=1T03D:CALL#9500:F0RM=1T 
u2:G0SUBGG:NEXTM,N 

5050 GOTO 1000 

5499 REiM~~~ game over ^-~ 



SB- $ui*BHT £T 
C0C0 



' " [ \ " : A$ ( 5 > = 
3 A " :B*<6)=" 



4510 A*(4>="[ \" :BS(4> = 
"ab" :B*(5)="cd" : A*(6>=" 
_( " 

4512 R=0 

4515 F0RN=25T01STEP-2:F0RM=1T039S 
TEP3 

4520 R=R+l: IFR=7THENR=1 

4522 PING 

4525 PLOTM-U,N, R : PLOTM-U, N+l , R : PL 
0TM+1-U,N, A*<R) :PL0TM+1-U,N+1, B* < R 
) :NEXTM,N 

4530 RETURN 

4999 REM-"- ~ mart 

5000 CALL#E2D0:P0P 

5001 D0KE#424, 37491 

5002 PL0T2-U,0, PL0T2-U,1," 

" :PL0T10-U,9, " 

5005 EXPLODE 

5010 FORN=1T010:PAPER7: INK0:WAIT5 
:PAPERO: INK7 : WAIT4 : NEXT 
5012 VI=VI-1: IFVI <1THEN550Q 



avyr 
: F0RM=0T06 : PL0T33+M 
NEXTM,N 



5500 WAIT300 

5502 A*="wx:rriy 

5505 FORN=OT0 
-U,2+N*9+M, " " 

5507 FORN=2T020STEP9:PL0T33-U,N, " 
E" :PL0T39-U,N+6, "A" :NEXTN 

5510 F0RN= 1 TO 1 : CALL#9500 : W A I T 1 5 : 
NEXT 

5515 PL0T33-U, 13, 1 :PL0T33-U, 14, 1 : 
CALL#9500 

5517 WAIT14 

5520 PL0T33-U, 13, 10:PLOT33-U, 14, 1 
0:CALL#9500 

5522 WAIT 14 

5525 F0RN=1T010:B*=MID*(A*,N, 1) :P 
L0T33-U, 13,B*:PL0T33-U, 14,B*:CALL# 
9500 

5530 SH00T:WAIT15:NEXT 

5535 F0RN=1T08:CALL#9500:WAIT15:N 
EXT 

5537 PL0T13-U, 12, 2 : PL0T14-U, 12, ST 
R*<CU) :PL0T20-U, 12, "pxvys" 

5540 A*(1)="WX ST WX S":B*(1)="YZ 

UV YZ U":A*(2)=" ST WX ST " 

5545 B*<2>=" UV YZ UV ":A*(3)="T 
WX ST WX":E*(3)="V YZ UV YZ" 

5550 PL0T14-U, 15 , 4 : PLOT 14-U, 16,4 

5555 ,F0RN=1T03 

5560 PL0T15-U, 15, A* < N ) :PL0T15-U, 1 
6,B*<N) 

5562 WAIT28 

5565 S0UND5,6B7,0:PLAY1,66, 1 ,4 

5570 IFPEEK<#208)=#84THENWAIT100: 
RUN 

5575 NEXT:G0T05555 

5700 END 

5799 EM~~~ ss prog, annexe ^~-v 

5800 P0KE#85C0, 12 
5805 P0KE#85D4,12 
5810 P0KE#85FE,44 
590D P=#AA0O 

5905 F0RN=#7D74T033Q4aSTEP42 
5910 F0RM=NT0N+6 
5915 D0KEP,M:P=P+2 
5920 NEXTM,N 
5925 D0KEP,M+42 
5930 F0RN=0T02 

5935 FORM= 1 T05 : RE ADA : DOKEA , 546+M+ 
N*7:NEXTM, N 
5960 RETURN 

5999 REM>~~ tableau de jeu 

6000 F=#7000 
6002 F0RN=1T0150 
6005 READA* 
6010 F0RM=1T063 
6015 B*=MID*(A*,M, 1 > 

6020 I FASC ( B* ) >47ANDASC ( B* ) <58THE 
NPOKEF , V AL < E* ) : GOT06045 
6025 POKEF,ASC(E$) 
6045 F=F+1 
6050 NEXTM,N 



6150 DATAB 4AE 2 1 AB 1 AB 
CAB2= ' AB 5 ! AE 6 \AB;> " AE5 
c ? A 
6155 DATAB6_ 5AE< N ABad N AB]( 
5cAB ABb 5AE A adAE 5 AE 

5cA 
6160 DATAE b AE 5c AE4 adAE 
AB ad ABC b AE 2 AB b AB\ 
A 
6165 DATAB 12= AB 1 AE 3AB ! 
; > AE ! 4 AE 3*AB " < AB ''[ AB 
(+A 
6170 DATAE N 5 AB N\ AE ) AE 
5c AE 5 5AB AE ad AE5c 5cAB 
5A 
6175 DATAE b ABad adAB77 5cAB 
777ABb b AIDJ adAE HDDGE 3AMM 
B b A 

6180 DATAE4 AMMMB 3*AMME 6ABC 
AriMMB777(+AMMB 6_AE\ AMMMIDDJ) AMM 
B lit A 
6185 DATAE FCCEMMMB AMMB A AB 5 
5AMMMB AMMB AB5c 5cALCCK5 ALC 
K A 
6190 DATABad adAB 5c AB 5 5ABb 
b AE ad AE5c 5cAB 777AB b ABa 
d adA 

6195 DATAB 7%%'AB 777 ABb b AE * 
&& AB77.7.' AB AE AB$&& AB7 
7 A 

6200 DATAE4 5 AB AB - /.' ABC 5 
c AB A*& ABAad 3AB 5 AB 

5 A 

6205 DATAB b 3#AB5c 4AE5c 4AB 

<+ABad [ABad CAB ) ABb \AEb 
\A 

6210 DATAB777 AE AB AIDD 
J AE AE AMMMB 5AB AB 

2 A 

6215 DATALCCK5cAE77 1 AB 2=1 AB 

adAE"/.' ! AB ; > ■! AB b A*& ■ AE 
<5? A 

6220 DATAB 5 2 AB N AB 5cN AB5c 
2= AE AB ad ABadi> AE 4 5AE 
b A 

6225 DATAEb < AE 5C5cAB777 AE 
AE5c\adAB7.'/.' AB ABad b A*& 

6 A 

6230 DATAB ABb AB 5 AB77 
77 AB AB5c 7AB7.7.7.' AE 777AEa 
d HG 
6235 DATAS&&& AB 6HDDGEb AMB 

AB6_AMMME 77AMB 5 4AB 3 < AMMMB 
HDGM 

6240 DATAB 5c C AE A AMMMB AMMME a 
d \AB FCCEE FCCEE b AB AE 
5 A 
6245 DATAB AB 5 5AB 5c AE 

AE5c 5cAB ad AB 777 ABad3adAB 
b A 

6250 DATAE4HDJ ABb3*b AE 6 ABC A 
MB AB <+ AE6_ AEAAMB1AB ) 1AE] 
( 5A 

6255 DATAB AMB ! AE 5 !AE A 5cAB F 
CK"AB 5c ?AB adAB NAB ad NAB 
b A 
6260 DATAE AE b AE 5 4 AE 
AB777 AB5c C AB 6 4 AIDDJ ABa 
d \ A 
6265 DATAB6_ C AMMME ABb AB ] ( 
\ ALCCK2 AB AB A 5 AB 52= AB 
5 A 



6270 DATAB 5c AE5c;> AB 5c AE 
ad ABad < AE ad AB b ABb AB 
b A 
6275 DATAB AB1 5 AB1 AB 

AB ! 5c AB 1 AB 77 AB" ad AE? 

3A 
6280 DATAE 77.' ABN b5 ABN5 3»AB * 

6 AB AE5c (+AE 5 5AB ABa 
d ) A 

6285 DATAB 5c5cAB 44 ABb AB a 
dadAE CC AE AE b b AE 5W5AB 
A 
6290 DATAE AE5c 5cAB 777 AB 7 

7 ABad adAE77.7.' AE77.' ABb b AB* 
&& A 

6295 DATAE*& AE AB AB 

5 AB 2 AB 5 AE 5c 4AB2= 77 AB 
5c A 

6300 DATAE4ad4C AE!>77.' AE7ad AEC b 

C \AB< *&. AUb AEA \ AB AMB 
A 

6305 DATAE AB 5 AMB 777AB 
AB5c AME HDDGE 3 ABad6 AMB 

AMMM 

6310 DATAE3* lABb6_ 1ALK AMMMB !+ 
!AE ]( 'AB AMMMB) 5 "AB' A ?AB 

AMMM 

6315 DATAB 5c NAB77 NAB FCCEB a 
d AIDJ AB 5 AB b AMMB AB5 
c 5A 

6320 DATAB 777 AMME SAEad 5cAE H 
DJ7AMMB75cABb adAE AMIDGMMIJadAE 
b A 

6325 DATAB AMMMMMMMBb AE 2 4 AB F 
CCCELCCK AE2= C AB 5AB AB; 
> \ A 

6330 DATAB 5cAB 5 AB< AE 2 

adAE5c 3AB AB2= b ABad 3*AE 

5 A 

6335 DATAB; > ABb ( +AB 5c AB< 
AB ) AB ad AB AB AB 
b A 

6340 DATAB 777AB AE AE 7 
7.7.' AE 5AE AB *&& AB 245cAB 

6 A 

6345 DATAB AB2=C adAE6_ 3AB 
AB;.:\b ABK 3*AB 6 AE<5C AB A 
(+A 

6350 DATAB46_ 4AB5c\ AB ) ABC 1 
< CABadC AB ABA A 5 \AEblV AB 
1 5A 

6355 DATAB 5c AB ! AE ! 5cAB a 
d AB " AE ? adAB b 5AE N 6AE 
N b A 

6360 DATAB 775 cAB 6_AB7 AE H 
JadAE KAIJ AB ABb AB A 5AMB 
A 

6365 DATAB AB 3AB 5cALK AB A 
B3*AB4 adAB 5 AE AB < +AEC b AE 

5c A 

6370 DATAB AE ) AEA AB ad AB7A 
B77AE 777AB b AIDGIDDGE HDDGB 
A 

6375 DATAMMMMMMMB 5AMMME777 4ALCC 
CCCEE5CAMMME7.7.' CAB 5 5ABadAMMM*& 
& \A 

6380 DATAESc 5cABb AMMMB 5AEad 

adAE AMMMB 5 5cABb b AE FCCEE5 
c adA 
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MSX 



Suite de la page 4 



2129 X = X + X1 V = Y<-V1 

2138 IF X>255 OR }!<-l& OR V>135 OP (V 

>122 AND X>68 AND X<170.) OP V<15 THEM 

2148 ELSE 2153 
214B V=INT<RNK1>*105>+18 IF INT(RN»( 
1)*10O)<58 THEN X=-16 ELSE X=255 
215 P U T SPRITE 8 ., ( X , V ) , 1 , A V 
2160 IF STRI6<JS) THEN 2200 
2170 SOTO 1828 

2180 REM TIP -- 

2190 REM 

2200 IF Z>160 THEN 4680 

2210 PUT SPRITE 5 . ' 42 , 127 '.' , 10 . 27 FIJI 

SPPITE 6, (198, 127) . 10 . 28 

2220 SOUND 6,5:S0UNI> 12,1:S0UND 

2230 M U = n LI - . 5 : I F HI.K104 THEN ft*- 

$<4>+" ON WOUS A MITRAILLE" SOTO 

2240 LINE(HU, 176) -<MU, 178) , 3 

2250 FOR I> = 1 TO 80NEXT !• 

2260 SOUND 6,15:S0UNI' 12,0 

0:SOUNP 11, 50 S=50 

2270 IF X<117 OR X>123 OR V 

107 THEN 1820 

2280 SOUND 11,30 

2290 PUT SPRITE 0,(120,147: 

SPRITE 5,(0,1?1),0 PUT SPRI 

1) .0 

2300 Z«Z-1:IF Z<142 THEN 2= 

2310 RESTORE 2420 

2320 PP = INT(RND',1 )»3:' XP = 14 

=30: IF PP=2 THEN SC=SC+200 

2330 FOR F=l TO 13 



13. S 
SPA''. 



S U N 
<101 



,13 

TE 



D 13 
OR 

PIJ 



2360 
TE 7 
2370 
, 1, , 



2340 READ X,V,AV 

2350 SOUND 11,35-F 

PRITE 8, <X , V> , 1, A'.,' PUT SPRI 

,8,29Z3=3-INT(F*.15) 

+12:Y2=Vt4:ClRCLE(X2,V2),Z3 

INT(X2,V2), 1 

=1 TO 150:NEXT D 

<>2 OR F<10 THEN 2418 

5400 
F 

130, 181,3 6, 13 8,96,3 7,14 6,91 
.39, 162,81,38, 165,73, 37, 162 
,61, 35, 152, 56, 41, 144. 54. 34, 
126 .62. 43, 118 .68, 43 
PRITE 7, (8. 191.) ,0 

7 . 5 5 : S U N f 6.31 S U N D 12,1 
3 , 

=2 THEN SOSUB 5488 
PRITE 8, (109 . 76> , 15 , 18 : PUT 
1 8 9 , 7 6 s . 1 1 , 1 9 PUT SPRITE 10 
8 . 2 ■ P U T SPPITE 11.(189,76) 

C2 = 15 
= 1 TO 9 
P P I T E 8 , , ', 1 FOR D = 1 TO 8 . N 

C 1 , C 2 SOU N I> 13,0 
F 

7: X2 = 112 ' V = 76 V C = 
PPITE 9, (0 . 191> , 8 : PUT SPRIT 
1 •' , ' 
+ 1 

2 THEN SOSUB 5400 
C IF V>120 THEN 2600 

!K/3 -X2-X2 + UC/2 
PRITE 8, (XI, V) ,8,16: PUT SPR 
V ) , 8 , 1 7 

-1 TO 200NEXT T> 
2530 

PRITE 8, (0, 20), 8, 7- PUT SPRI 
1),0 

6,15S0UND 12,3:S0UND 13,1 

50:S=58 
>115 OR PP<>2 THEN 2660 



PUT 
(X, Y 

X2"=X 
. 9 : PA 
2380 FOR D 
2390 IF PP 
2400 SOSUB 
2418 NEXT 
2428 DATA 
,38,154.86 
,65, 36 . 157 
134, 56.42, 
2430 PUT S 
24 40 SOUND 
40: SOUND 1 
2450 IF PP 
2460 PUT" 
SPRITE 9, 
. '109. 76.' 

1.21 
2473 Cl=l 
2438 FOR F 
2490 PUT 
EXT DSWAP 
2500 NEXT 
2510 Xl=10 
2520 PUT 
E 10.(0,19 
2530 VC=VC 
2540 IF PP 
255 V=V+ 
2568 X1=X1 
2570 PUT 
I T E 7 , ( X 
2580 FOR D 
2590 SOTO 
2600 PUT 
T E 7,(0,19 
2610 SOUND 
8 SOUND 11 
2620 IF VP 



2630 SOSUB 5483 
2643 FOR D=l TO 163. NEXT D 
2650 SOTO 2620 

2660 LINE(80,120)-(180,30) ,5,BF. PUT S 
PRITE 11, (0,191) .0 
2670 SC=SC+MU-INT(Z)+258 
2688 SC*= " 88883 "+MlD*(STRt (SO , 2, LEN( 
STR*(SC)> -1) 

2690 LINEC118, 13) -(63, 0) , 1, BF : PRINT * 
1,RISHT$(SC*, 5) 

2700 AA=AA+1'XC=45+AA*13DRAW"BM=XC; , 
12 C14 D2R4D2U2L2U2R2L2D4L2" 
2718 Zl=INT(AA/5)+l ON Zl SOTO 2140,2 
723, 2730,2740 
2720 M»4:80T0 2140 
2730 M=5.S0T0 2140 
2740 COLOR 1 
2750 FOR F=l TO 9 
2760 LINE(150,70) -'10 
2770 PRINT #1, "BRAVO 
: N E X T D 
2780 NEXT F 
2790 LINE(150,70)-(10 
37,5?)-(173 .70), 1 , B 

2808 AJ= "Vo'j.s avez gaoine vce salons c 
one perffiettant d e p i 1 o ter 1 e s u p e r oh 
asseur MSX-081 
2810 A$=SPACEJ(10>+A* 
2823 FOR F=l TO LEN(A*)-10 
2833 LINE(172,68)-(98 . 60) 
#1.MIDJ(A*,F,10) 
2840 NEXT F 

2350 TA = 2ft*="" SOSC-K161-Z) 
183>*30 

2860 SC$="00838' 
STR*(SC) )-l) 
2378 REM --== ; 
2888 REM 

2893 RESTORE 2960 
2900 FOR CL=27 TO 63 

2910 FOR LE = 1 TO 32 READ OC IF 0O255 
THEN 2930 ELSE LU«=LUS+CHR* ( OC) DA=D 
A+OC+1 NEXT 



,63), 5, BF 

" : FOR D = l TO 10 



, 60), 5. BF : LINE'. 



BF PRINT 



+MIDS(STRJ(SC).2,LEN( 
eme TABLEAU ■ » - - 



292 READ CDIF CDODA THEN 2930 ELSE 

2943 
2930 COLOR 15 . 4, 4 : SCREEN0 .PRINT"Err« 
Li r .^e DATA litjne", 2963 + 13 * ( C L - 2 7 ) 
2940 SPRITEt(CL)=LU*: LUt="" Dfl=0 
2950 NEXT 

2960 DATA ,,,,,,1.3,7,15,15,38,248.24 
0,48, 48. 1,6. 14, 2 3, 128, 240. 243. 224. 19 2 

,128 1883 

2970 DATA ,,,,,,, 1 , 3 , 3 , 28 , 4 , 4 ,,,,,,, 8 

.16.96,224,192 , 123, ,.,,,,, 739 

2980 DATA ,,,,,,, 1 . 1 , 6 , 2 ,,,,,,,,,, 32 , 

64,192,128, ,,,,,,, ,458 

2990 DATA ,,,,,,., 1, 6,2, , , . , , , , , , , 1 

28, ,,.,,,, , 169 

3000 DATA ,,,,,,,, 1, ,,,,,,,,,,,,,, 128 

,161 

3310 DATA 128.96,112,56,30,15,15,7,3, 

1, ,,,,,,,, ,,,,128, 192, 224, 240, 240, 120 

,31, 15,12, 12, 1709 

3328 DATA ..,16,3,6,7,3,1,,,,,,,,,,,, 

,,,128,192.192,56,32,32.,,,705 

3030 DATA ,,,,,4,2,3,1,,,,,,,,,,,,,,,.. 

123, 128,96,64, , , , , ,458 

3340 DATA ,,,,, ,2,1, ,,,,,,,,,,,,,,, ,1 

28,96,64,,,,, ,323 

3050 DATA ,,,,,,, 1, ,,,,,,,,,,,,,,,, 1 

28 161 

3060 DATA 16.144,120,15,7,15,63,124,1 
i, ,,,,,, , ,96,240, 224,192,132,224, 112, 

1332 

3373 DATA ,32,24,14,7,3 ,,, 

, , 128,192, 112, ,,,,,,, ,544 
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CONAN 



Tl 99/4A BASIC ETENDU 



Captive depuis des lustres dans un epouvantable chateau, 
la bien-aimee de CONAN esperait eperdument en la vail- 
lance de son fougueux heros... 

Michael GONZALVEZ 



Mode d'emploi : 

Tapez et sauvegardez a la suite ces deux programmes. Chargez la pre- 
miere partie. Apres la presentation, vous voila dans le souterrain du cha- 
teau ou plusieurs dangers vous guettent : 

- La chauve-souris : qui survole le souterrain dans votre direction et que 
vous devez tuer. 

- L'araignee geante : que vous devez tuer avant que son venin ne vous 
atteigne. 

- Le trou : que vous devez sauter. 

- La bosse : que vous devez detruire. 

Lancez votre epee boomerang par la touche "W" et sautez par "E". 



Le passage au tableau 2 autorise, chargez le second programme. Vous 
devez traverser un toit, malgre la presence d'ennemis plutdt cruels : 

- Le ninja : tuez-le par appui "au bon moment" sur la touche "R". 

- Le gnome : pointez-le de votre epee par la touche "X" et tuez-le par "S". 

- Le vampire : attention, ce dernier peut se transformer en chauve-souris 
ou bien en loup. Tuez le vampire par la croix de bois en appuyant sur "W", 
la chauve-souris par "E" et le loup par "D" (une fois ces monstres a 
proximite). 

A chaque mort de I'ennemi, vous avancez de quelques pas jusqu'a fran- 
chir I'entree du donjon. Pour delivrer la belle captive de son cachot (en 
bas de I'escalier), vous devez tuez (en sautant dessus) le ninja qui garde 
la cle, prendre cette derniere en la touchant et vous diriger vers la grille 
(seulement si vous etes en possession de la cle). Allez a droite par la tou- 
che "D", a gauche par "S" et sautez par "E" (saut dans le sens du 
deplacement). 

Sachez que vous ne beneficiez que d'une seule vie pour ces deux 
tableaux... 



— ^, 



c'&T eot*t*B 



LISTING 1 




1 CALL CLEAR :: CALL MAGNIFY <3> : : CALL S 
CREEN(2> 

2 EW=0 :: RESTORE 3 :: FOR 1=1 TO 77 :: 
READ A. At :: CALL CHARfA.A*):: NEXT I 

3 DATA 64.FFFFFFFFFFFFFFFF.65.0103O7OF1F 
3F7FFF, 66. B0C0E0F0F8FCFEFF, 67,0000010000 
000000 

4 DATA 40,FF0303030303FOF0.41,FOFOFFFFFF 
FF1F1F.42.FEFE010101010101.43.030303FFFF 
FFFFFF 

5 DATA 45,FFFFFFFFFFFFFFFF.44.0707C0C0C0 
COFFFF 

6 DATA 4S,SOCOCOOOEOO0F00O.4<?,FBOOFC00FE 
OOFFOO, 50, FFOOFFOOFFOOFFOO, 51 , FFOOFFOOFF 
OOFFFF, 52, COOOEOOOFOOOFCOO 

7 DATA 53.00008000EOOOFCFF 

8 DATA 56,FFFFFFFFFFFFFFFF,57,C7FFFFFFFF 
FFFFFF 

9 DATA 73.000000000000FFFF,74,EOBOD8701C 
1 AFFFF , 72 . E0B0D870 1 C 1 A0F07 

10 DATA BO,00000000030F1F1F,81,00073FFFF 
CF0C080, B4, 7FFEE00F0FFFFFFF, 86, FC3B30E0E 
0E08000, 88, 0000000000030203 

11 DATA 90, 000000000GE01078. 93, 000000000 
0003F01 . 96, 00000OCO6O381F0F, 98. 000000000 
0000303, 100, OOOOOOOOOOOOFCFE 

12 DATA 103.O000OOO0000F0F0D 

13 DATA 82,3F3E3E7C7C7CFBFB,83,07070F0F1 
F3E3E3E, B5, F8EOC08000000000, 87, 070F1C397 
1EFECEB.89.C3E3FBFFFFEF371B 

14 DATA 9 1.FCEEF7F7FBFDFDEE ,92.000000808 
OCOEOFO , 94 , 333F3F3F3B3B3B3B , 95 , O7OF0E 1 E 1 
F1F7FFF. 97, 80C0COE060BOBOD8 

15 DATA 99,0303030303030303, 101, FE8F8FE7 
F3F9FEFE. 102, 000080B0B0C0E0F0. 104.0DOD0D 
ODODODdDOD 

16 DATA 105.F8F8FBFCFCFC7E7F. 106.E0E0607 
07S3C3E1F, U1,F8F8F8FC7E7F3F3F, 112.0D0D0 
D0D1BF7FFCC 

17 DATA 114.E0EOEOE0E0EOAOA0, 115,77733D3 
D0E070703, 1 17. FBFBFBFB7B7B3BBB. 120.0FOCO 
70703010100,121, 83C3C3E3E3E3F3F3 

18 DATA 123,E0E0E0E0E0606060, 115,3F1F1F0 
FOF070301, 125.CFCFEFEFFFFFFFFF 

19 DATA 1C>7,3F1F0F0700000000, 108.9FCFE7F 
BFF3F0700, 109, C0F0F8FCFCFEFE00, 110, 1F070 
00000000000 

20 DATA 113, FDF9010101010101, 116,0301010 
000000000, 11B.8BEBE3FFFFFFFFFF, 122.FB7B7 
B3F3F3F1F1F, 124, FFFBEB63331F1F00 

21 DATA 12B.FFFFFFFFFFFFFFFF, 129,E4F4F4F 
2F2F2F2F2, 130, F97C7C7E7E7F7F7F, 131,B7B34 
36120101008 

22 DATA 132, C4C4C4C4C4C44404, 133,2733131 
9C9CCE4E6, 134. F1F8FCFCFEFEFFFF, 135.8F476 
32311000080, 136,F2F2F2F2F2F2F270 

23 DATA 33.80E0F8FFFFF8E0B0 

24 CALL C0L0R(6,2,4,5,4, 1, 12,8,5,4, 13,4, 
3,9, 1,2, 15,9) 

25 CALL COLORd, 8, 1, 13,8,9, 14,8.9) 

26 FDR 1=7 TO 12 :: CALL COLOR ( 1 , 9. 1 ) : : 
NEXT I 

27 PRINT " C CPOTVXZ ]' bd g C C " 

28 PRINT " e RSUWYC \"-_acF*h C " 

29 PRINT " C ee"&RPT*(CHR*(128> .5) : CHR* 
(129) : CHR* (130) : CHR* (131) S CHR* (132) ; CHR* 
(128) : CHR* (133) ; CHR* (128) ; CHR* (134) : CHR* 
(135) ;CHR*(136) :CHR*(12B>&" ! C" 

"0 e ij oprsu x 

"1 C klmnqrtv 

"24 C C 

"335 C C C 

C Ai3B C 
"- - - A@@@B C C 

" A££I3|3@@B A@@ia@@@II@@ii!@|a" 

" ( ) @iai&iaia@i3i5iaisiai<ie©£<<!i<'ifri2©@@@" 

"* + @@|c||B@|c!ia@@|cl@@@|c!|c!|c!|ij@|e!|el@|a|a" 

" H@li!@ll!@@@@@@@i^@@@@@ii!@@@@ " 

" . GfHl£|l£ , (£!IJ!l5l5l£!l?lf!li!l£ , !£!'!!@l^@l^@^S@ " 

" *-< @iaiaHrii<!@@ia@ifci<!@@@@@)a@ia@@@ » 

" |d,d|d|didHldia|d|d|d|d|dld|d|d|d|d,d|d|ard|did ' 

" — ) -w@£ij2'££Hii!@i£!t?!£i=!ia@@ia|aiai!i!i!ia:j " 

" ( iaiaiaiaiaiaiaHidtdQid£idid|didiaiai!!@@iaia " 

" @iaiaiaid!d[a|dH£id,a@@@ t a l aiaia,a,a,a,ait!" 

" 1 1 1 1 1 1 1 1 1 J I iiia@|Sise@isBia@@id •' 

" 88BB89 " icRPT* ( CHR* < 1 28 > , 8 > !< " 999 
"SiRPT*(CHR»(12S) , 3) & "99999999" 

49 PRINT "8B8S8888888888888"!iRPT*(CHR*(l 
28>.3>S,"BBBBBBB8" 

50 CALL CHAR (60, "0000000C0C06DFF31F1F1F1 
3080502000000000000000004F8COC020BOOOOOO 
0") 

51 CALL CHAR (36. "OOOOOE03000020000000000 
0000000000000000080000000000000000000000 
0") 

52 CALL CHARI68. "0000001B1B06DFF1 1F0F0F3 
040B0000000O000000000001EF0F0F0D80402000 



30 


PRINT 


31 


PRINT 


32 


PRINT 


33 


PRINT 


34 


PRINT 


35 


PRINT 


36 


PRINT 


37 


PRINT 


38 


F'RINT 


39 


PRINT 


40 


PRINT 


A ; 


PRINT 


42 


PRINT 


43 


PRINT 


4-1 


PRINT 


45 


PR I NT 


■1 ;-. 


PRINT 


47 


PRINT 


48 


PRINT 



y£s> A" 


!( 


! C Aia " 




C A@IS" 


C 


Ali@@i5G! " 


C 


CAis@ia@@@" 


c 


H,dM|d|d,d,,!|d 



53 CALL CHAR (76, "00001 C07000020000000000 
OOOOOOOOOOOOOOOBOOOOOOOOOOOOOOOOOOOOOOOO 
O") 

54 CALL SPRITE (#1,60, 9, 154, 220, #2, 36, 12, 
154,220) 

55 CALL CHAR154, "63666C7870786C66" , 55. "7 
E7E607B7S607E7E", 119, "C0E3763C1B1B181B" ) 

56 DISPLAY SIZE(4)AT(9, 17) : "67m" :: CALL 
S0UND(10.-2,0> : : CALL KEY<0,K,S> : ! IF S 

=0 THEN 57 ELSE 58 

57 DISPLAY SIZE (4) AT (9. 17) : CAL 

L SOUND ( 10. -1. 0) : : CALL KEY (O, K, S> : : IF 
S=0 THEN 56 ELSE 58 

58 DISPLAY SIZE(4)AT(9, 17) 

59 CALL SOUND (100. -6.0) 

60 CALL MOTION (#1,0,-5,1)2,0,-9) 

61 CALL PATTERN (#1,68, #2, 76) : : CALL SOUN 
D<10, -7,0) 

62 CALL P0SITI0N(#1,Y, X) : : IF X<10 THEN 
71 

63 FOR 8=1 TO 30 : : NEXT G 

64 CALL PATTERN (#1,60, #2, 36) : : CALL SOUN 
DUO, -6,0) 

65 CALL P0SITI0N(#1,Y, X) : : IF X<10 THEN 
71 

66 FQR GF=1 TO 30 :: NEXT SF 

67 EW=EW+1 : : IF EW>3 THEN 68 ELSE 61 

68 IF P0I=1 THEN 71 :: CALL PATTERN(#1.6 
8, #2, 76):: CALL MOTION (#1 , -3, -4, #2, -3, -4 
) 

69 CALL WI400):: CALL MOTION (#1 , 3, -4, #2, 
3,-4):: CALL W(400):: CALL MOTION (#1 . 0. 
.#2,0,0) 

70 CALL MOTION <W1, 0,-6, #2,0,-6):: EW=0 : 
: PQI=1 : : BOTO 61 

71 CALL WI550):: CALL D~LSF'RITE (#1 , #2) 

72 W=B :: FOR 1=13 TO 21 :: CALL HCHAR ( I 
,W,64):: W=W+1 :: NEXT I 

73 CALL HCHAR(21,7,64, 11) 

74 CALL CHAR<72, "COCOCOCOCOCOCOCO" ) 

75 CALL VCHAR(12,8,72. 10) 

76 FOR 6=0 TO 30 :: CALL SOUND < 100, -6, G) 
: : NEXT G 

77 CALL CLEAR : ! CALL CHARSET 

7B FOR G=l TO 10 :: CALL COLOR (G, 16, 1 >: : 
NEXT G 

79 X = l :: A*=" 1 -ER-TABLEAy 

80 DISPLAY AT (12, 1) :SEG*(At, X, (28-X) ) !<SE 
G*(A*,1,X):: X=X-U :: IF X >2B THEN X=l 

81 CALL S0UND<10,-1, 10) : : CALL KEY<0,K,S 
) : : IF S=0 THEN 80 

B2 CALL CLEAR : : CALL CHARSET 

83 A*="FFEFF7F77F1F1F1F" :: B*="FFFBC73F 
FEF8F8F8" :: C*=" 1F1F1F1F1F1F1F1F1 " 

84 D*="F8F8FBF8F8F8FBF8" :: E*="1F1F1F7F 
F7FBF8FF" :: F*="F8FSF8FEFFEF1FFF" 

85 S*= " FFO80808FF8O8080 " 

86 CALL CHAR(40,A*,48,A*.41,B*,49,B*) : : 
CALL CHAR ( 42, C* , 50, C* , 43 , D*, 51 , D* ) 

87 CALL CHAR(44,E*,52,E*,45,F*,53,F*,56, 
G*,64,G*,72,G*> 

88 CALL CHAR(132,RPT* ( "0" , 43) &"4023F0204 
000000000000" ) 

89 CALL CHAR(136,RPT*("0",47)!<"41F040000 
00000000") 

90 CALL CHAR(140,RF'T* ( "0" , 45) V4081F0804 
0000000000") 

91 CALL CHAR ( 96 , " 00020 1 00020 1 " &RPT* ( " " , 
22) IV202OABF8FOAOOOF0793A1C0C0CO2O1 " ) 

92 CALL CHAR(80,RFT*("F". 16) ) 

93 CALL CHAR ( 100, "0000O0OOO001033B7E7739 
0F"8,RPT*<"0", 181VECFE07F7FEECB800000000 
") 

94 CALL CHAR (104, "0000000C0C06DFF31F1F1F 
1 30B0502 " &RPT* < " O" . 1 7 > & " 4F8COC020BOOOOOO 
0") 

95 CALL CHARU08, "00000E0300002"&RPT* < "0 
",27>!<"8"8,RPT*<"0",23> ) 

96 CALL CHARU12. "000000181B06DFF1 1F0F0F 
10408 "8.RPT* ( "0" , 19) V1EF0FOF0DB04O20000" 
) 

97 CALL CHAR (116, "00001C0700002"8<RPT* < "0 
",25)S,"8"!<RPT*("0",25> ) 

98 CALL C0L0R(6,B,8,2, 15, 1,5, 15,7,4, 15.7 
,7,8, 1) 

100 PRINT "aHHH@@HHIS!l!HHIa@HH@ll!HHls!G!HHe@HH" 

101 PRINT "BBB88B88BBB8B88B8B8B88S8888B" 

102 PRINT " () 01 () 01 () 01 ()" 

103 FOR 1=1 TO 3 : : PRINT " *+ 23 *+ 
23 ♦+ 23 *+" :: NEXT I 

104 PRINT " ,- 45 ,- 45 ,- 45 .-" 

105 CALL HCHARU8, 1,56,32) 

106 CALL HCHAR < 1,1,80,512):: CALL HCHAR ( 
17,1,72,2):: CALL HCHAR ( 17, 31 , 64, 2) : : CA 
LL HCHARI24, 1,56,32) 

120 POI.CF-0 :: A=40 :: B=16B 

130 RANDOMIZE 

140 CALL SPRITE (#20, 96, 5, 150, 40, 0,9, #21, 

96,5, 150. 168,0,9) 

180 FGR R=22 TO 27 :: CALL SPRITE (#R. 100 

,16, INT(RND*100)+1, INT (RND*230) + 1 . 0, 10) : 



: NEXT R 

190 CALL SPRITE (#1, 

12, 170,205) 



340 i 
, 800 



350 
360 
361 
362 
363 
364 



=INT(RND«J 
860,900 

FOR G=l TO 

IF QWE= 

IF QWE= 



1+1 :: ON A GOSUB 590,540 



50 



THEN GOSUB 630 
THEN GOSUB 650 
IF 0WE=2 THEN GOSUB 840 
IF 0WE=3 THEN GOSUB 880 
IF 0WE=4 THEN GOSUB 930 
410 CALL P0SITI0N(#5. Y. X) : : IF X >230 THE 
N CALL DELSPRITE (#5. #6) : : GOTO 340 

420 CALL KEY(0,K,S):: IF K=69 THEN GOSUB 
1340 

421 IF K=87 THEN GOSUB 1250 

440 CALL CDL0RI2. 2, 1,3, 15, 1,5,8,8,6, 15,7 
) 



, 104, #2, 108) : : 



450 CALL PATTERN (#5, 128. #1, 
CALL SOUND (10.-6,0) 

451 FOR L=l TO 8 : : CALL KEY(O.K.S) 

460 IF K=69 THEN GOSUB 1340 

461 IF K=87 THEN GOSUB 1250 
470 NEXT L 

480 CALL C0L0R(2, 15, 1,3,2, 1,5, 15,7,6.8,8 
) 



.#1, 112 



. 116) : : 



IF X>230 
GOTO 340 



:>ll 



490 CALL F'ATTERN<#5. 1 

CALL SOUND (10, -7,0) 
500 CALL POSITION (#5, 
N CALL DELSPRITE(#5.#6) : : 
520 NEXT G 

540 A*= " 00000000000000000 1 0307 1 FF COOOOOO 
C0183C787CFCFCFCFCFCFBF8F000000OO" :: CA 
LL CHAR (120. A*. 128. A*) : : QWE=0 
550 CALL SPRITE (#5, 120. 16, INT (RND*20) +15 
2,1,0,9):: RETURN 

590 CALL CHAR<120,RPT*<"0",19)8c"FlFlF254 
52989 "8iRPT» < "0" , 18) &" C0FCEE60502824 " ) 
600 CALL CHAR ( 128, RPT*("0", 19) &"F1F1F151 
52424 " &RPT* ( " " . 1 8 ) & " C0FCEE40209090 " ) 
610 CALL CHAR(124.RPT*("0",53)!<"10601000 
000"):: QWE=1 :: CALL SPRITE (#5, 120, 4, 17 
0,1,0,2):: RETURN 
630 CALL P0SITI0N(#1, Y, X,#5,P,0): : Q=SGN 

(Y-P):: CALL MOTION (#5. Q. INT (RNDUO) +1 > > 

: CALL COINC(#5,#l, 12, H) : : IF H THEN 700 

640 RETURN 

650 CALL POSITION (#5, Y, X) : : CALL SFRITE< 

•10, 124, 14, Y,X, 0,105):: CALL S0UND(30,99 

0,0) 

660 CALL C0INC(#10,#1, 12, E) : : IF E THEN 

700 

670 CALL DELSPRITE(#10) : : RETURN 

700 CALL M0TI0N(#1.0,0,#2,0,0> : : CALL DE 

LSF'RITE(#5,#6,#10) : : CALL LOCATE (#1 , 170, 

205, #2. 170.205) 

740 CALL CHAR (92. " 0000000000003038 1E2FFF 

7FDFD01E"!,RPT* ( "O" , 22) 8,"E0D0D040D000" , 84 

, " 0000000000380C040000008 " &RPT* ( " " , 4 1 ) ) 

750 CALL PATTERN(#1,92,#2,B4) : : CALL W(4 

00) : : #END 

800 A*="3F1F0F07070303"8>RPT*(" 

FCF8FBF8E0CO00000OOO000OOO0000" 

CHAR(120,A*. 128, At) : : 0WE=2 

810 CALL SPRITE (#5, 120,2, 185, 

TURN 

840 CALL C0INC(#1.#5.20,W): : IF W THEN 7 

00 

851 CALL SOUND! 300, -B,0> : : RETURN 

B60 Z *= " 00000000000000000 1 0303070F 1 F 1 F 1 F 

000000000000000000C0C0E0F0F8F8F8" : : CAL 

L CHAR ( 120, Z*, 128, Z*> : : QWE=3 

B70 CALL SF-RITE (#5, 120,7, 169, 1,0,5) : : RE 

TURN 

880 CALL C0INC(#5.#1, 12, A) : : IF A THEN 7 

00 : : RETURN 

900 CALL CHARI120. "0O8OC0C2F1 391F1901000 

00000000000000 1 03438F9CFB9S8000000000000 

000 " ) 

910 CALL CHAR (128, "0000000201 19 1F39F1C0C 

080000OO0000000OO4OB098FC9F8F03030 1 00000 

000") 

920 QUE=4 :: CALL SPRITE (#5, 120, 14, INT (R 

ND*50>+152.4> : : RETURN 

930 CALL MOTION (#5, INT (RND*2) +1,4, #5, INT 

(RND*2)-1,4) 

940 CALL P0SITIDN(#5, Y, X) : : IF X<140 OR 
Y>170 THEN CALL LOCATE (#5, 160, X ) 
950 IF X>245 THEN CALL DELSPRITE (#5) : : C 
P=CP+1 :: GOTO 1230 

960 CALL C0INC(#5,#1, 12, E! : : IF E THEN 7 
00 : : RETURN 

970 CALL MOTION (#5, 0, 0) : : CALL CHAR (SB. R 
PT* < "0" , 27) !<"F1F1F"!,RPT* ( "0" , 26) VCOFCEE 
"):: CALL SOUND ( 100, -7,0) : : CALL PATTERN 

(#5. SB) 

980 CALL DELSPRITE (#10. #9) : : CP=CP+1 :: 
CALL W(400):: CALL DELSPRITE (#5) : : RETUR 
N 

1020 CALL MOT I ON (#5, 0,0) : : CALL DELSPRIT 
E(#9):: CALL CHAR (8B. "000000000000000000 



, 18)&"FE 
: : CALL 



F-.'t 



01 1 FOOOOOOOOOOOOOOOO 1 83C 38 7C7CF CF8FO000O 
000000" ) 

1030 CALL CHAR(92.RPT*("0", 19) 8c"7"«iRPT* ( 
"0" , 22) V60E0E0EOCO000O00OOO0OO" ) 
1040 CALL CHARt76,RPT»j"0",44)&"10300000 
000000000000" ) 

1050 CALL CHAR(84. "000000010000000100000 
001000000000000001 1925400D70054921 100000 
000"):: CALL SOUND ( 100. -7. 10) 
1070 CALL PATTERN(#5.B8) : : CALL SOUND (10 
,-1.0):: CALL M(40):: CALL PATTERN (#5. 92 
):: CALL SOUND < 1 0, -2. 0) : : CALL Ul(40) 
1080 CALL PATTERN (#5, 76) :: CALL SOUND (10 
,-3.0):: CALL W(40):: CALL PATTERN (#5. 84 
) 

1090 FOR F=0 TO 30 :: CALL SOUND ! 100, -7. 
F):: NEXT F :: CALL DELSPRITE (#5) : : CF-C 
P+l :: RETURN 

1110 CALL DELSPRITE (#5, #9) : : CALL SOUND! 
100.-7,0):: CP=CP+1 :: RETURN 
1170 CALL DELSPRITE (#9) : : CALL MOT I ON (#5 
,3,2):: CALL POSITION ( #5, Y. X ): : IF Y>=17 
THEN 1180 ELSE 1170 

1180 CALL SOUND (100. -7. 0) : : CALL DELSPRI 
IE(#5):: CF-CP+1 :: RETURN 

1190 CALL MOTION(#1,0,0,#2,0,0) : : CALL L 
DCATEIB1, 170, 205, #2, 170,205) : : IF QWE=0 
THEN GOSUB 1020 
1200 IF QWE=1 THEN GOSUB 970 
1210 IF QUE=3 THEN GOSUB 1110 
1220 IF QWE=4 THEN GOSUB 1170 

1 230 ' 

1231 CALL DELSPRITE(#4,#5,#6) 

1232 IF CF-9 THEN GOSUB 3000 

1233 GOTO 330 

1250 CALL P0SITI0N(#1,Y,X) :: CALL SPRITE 
(#9, 132. 16, Y, 200, 0,-20) 

1260 FOR E=l TO 6 :: CALL COINC (#9, #5, 12 
. W) : : IF W THEN 1190 

1261 NEXT Q 

1270 CALL PATTERN (#9, 136) : : CALL SOUND ( 1 
0,-2.0):: CALL MOTION (#9, 0, O) : : CALL COI 
NC(#9,#5, 12, E) : : IF E THEN 1190 
1280 CALL W(50)i: CALL PATTERN (#9, 140) : : 
CALL MOTION (#9. 0,20) 
1320 CALL COINC (#9, HI , 12. E) : : IF E THEN 
1330 ELSE 1320 
1330 CALL DELSPRITE I #9) : : RETURN 

1340 IF QWE=3 *THEN RETURN 

1341 CALL M0TI0N(#l,-7,0,#2,-7.0) : : CALL 
W(90):: CALL MOTION (#1 , 0, 0, #2, 0. 0) 

1350 FDR E=l TO 10 :: CALL KEY (0,K, S> : : 
IF K=87 THEN GOSUB 1250 

1351 CALL C0INC(#1,#5. 12, T) : : IF T THEN 
700 

1360 NEXT E :: CALL MOT ION (#1 . 5, 0. #2, 5, 

) 

1390 CALL P0SITION(#l,Y,X) : : IF Y>=170 T 

HEN 1420 

1400 CALL COINC (#1, #5, 12, W) : : IF W THEN 

700 

1410 GOTO 1390 

1420 CALL MOTION(#1,0,0,#2.0,0) :: CALL L 

0CATE(#1, 170, 205, #2, 170.205) : : RETURN 

3000 CALL M0TI0N(#l,0,-6,#2,0,-6) 

3001 CALL POSITION (#1, Y,X) : : IF X< = 10 TH 
EN 3100 

3010 CALL PATTERN<#1, 104, #2, 108): : CALL 

SOUND(10,-6,0) 

3020 CALL P0SITI0N(#1, Y,X) : : IF X:=10 TH 

EN 3100 

3030 CALL PATTERN (#1, 112. #2, 116) : : CALL 

SOUND(10,-7.0) 

3040 GOTO 3001 

3100 CALL DELSPRITE (ALL) : : CALL CLEAR :: 

CALL CHARSET 
3110 FOR G=l TO 12 :: CALL COLOR (G, 16, 1 ) 
: : NEXT G 

3120 A* = " 2-EME-TABLEAU " 

3130 DISPLAY AT ( 12. 1 ) : SEG* ( A*. X , (28-X) ) !■ 
SEG*(A*. 1, X) : : X=X+1 : : IF X>28 THEN X=l 
3140 CALL SOUND (10, -3,0) : : CALL KEY<0,K. 
S) : : IF S=0 THEN 3130 

3150 CALL CLEAR :: PRINT "MAIS AVANT IL 
FAUT CHARGER": : "LE DEUXIEME LISTING": "- 



3160 PRINT : : : 

3170 RUN "CS1" 

10000 GOTO 10000 

32100 SUB W(X):: FOR D=l TO X 

: : SUBEND 



LISTING 2 



1 CALI COI ORIl. 8. 1.8, 10,9,2,9,8,3,9,8,4, 

5,8.6,7,8, 7, 15, 1.5, 16, 1 i 

2 CALL CHAR(33,RPT*("F". 16) ) 

3 P0.0W=0 
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ZX81 
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9002 

•J005 

9007 
9010 
1161" 

6282-: 

S4.34; 

902O 

O10O! 

F-252" 

244.4; 

9030 

91 IIS 

0274" 

1302'l 

9040 



REM * 

DIM P 

FRST 

LET N 

13311 

30523 

45464 

LET S 

13140 

28291 

45464 

LET E 

14141 

29513 

144392 

LET 



*********** 
$ (56,9) 



="020803 
16251820 
33343540 
49495051 
="010103 
11121808 
31323334 
42485051 
="010306 
1S171724 
32333635 
43564954 
•010402 



041207 
212222 
363339 
525754 
040506. 
192021 

305254 
020401 
202123 
373 
5355 
050903 



1519091 
2324272 
3940414 
5556" 
0602091 
~ 24172 
35414 
5556" 
1303050 
4215262 
946344 
5040" 
0708101 



Oil 12071324 16 13 16 1926214722 19252 

52723444331323341353436384656422 

3434545402S485O553O52535 15449" 

9050 LET 'J$ = "9235456165R24213615 

353 1644304S3 1466663 1626 1364666 11 

70363" 

9060 FOR X=l TO 56 

907O LET J=X*2 

9080 LET P* (X) =N$ iJ-1 TO J)+S*(J 

-1 TO J)+E$(.J-1 TO J)+0*iJ-l TO 

J) +'J* (X) 

9090 NEXT X 

9095 GOTO 100 

9096 REM ************* 

9097 REM *R0UT1IME L.M* 

9098 REM ************* 



9100 LET Z*="01S0162R0C407E77237 

E81FEF620F810F7C9" 

9110 FOP. F = 16514 TO 16532 

9120 POKE F,16*C0DE Z*+CODE 2* (2 

' -476 



9130 LET 
9140 NEXT 
9150 SLOU 



Z*=Z$ (3 TO ) 

F 



9990 STOP 

9998 SPUE "LP CEINTURE 5ftCRE!" 

9999 GOTO 7000 



29 



NAGE 



Risquez la noyade ou I'asphyxie lors d'une redoutable 
epreuve de natation en piscine de poche... 

J.Philippe CUNNIET 

Mode d'emploi : 

Votre nage s'effectue de gauche a droite. Utiiisez "/" pour avancer et "4" 

pour respirer. Vous risquez soit la noyade en restant trop longtemps sur 

place pour respirer, ou bien I'asphyxie en nageant trop longtemps sans 

reprendre votre souffle. 

L'arrivee est visible au bout de quatre longeurs d'ecran parcourues. A vous 

de nager comme une enclume ou un poisson dans I'eau... 




FX 702 P- 








:i;c$: 


-=*";? SOT A 


-=*":ft=2:B=i:C 


liflIT e:PRT CSR 


3 !F HCF'SPRI C 


6 FOR R=15 15 t 5 


-i 


M"itiifiie'» :: '.: 


S? !3;«! 


TEP -isPRT CSR 


8 IF 8= 1 : PRT CSR 


*=»RBC&EF6HIJKL 


4 'F c*< B o B ;PR^ C 


B§»*=- 5 :psP S- 


4;"!"; 


HH'iFOR R=l 10 


sr ?;«; 


»*=< '-': ; HEKI R: 


9 IF KEV= w /"5C=6t 


LEK(J) 


5 NEXT HiFOR B=8 


PR T CSR 8; 


i:fi=-fi+3:E=e: IF 


C*=HlD(fiil):IF 


TO i5:PRT CSR fl 


7 PRT :VhC :(W(1) 


H4UF B<4;D^ 


[JiT'i'll ::v 


;» )^\m ft;" 


-•" >=*"SR*<2>=" 


l;B=H+|;pfT 




KEY="f"JC=C+ 

IF E=5-PRT "V 
Tii C0ULES!"!60T 
i 
ij |;sp-is{F C<fe°**R 

T ;"ST «¥(.$ R/ 

HlP"':sTfiP iBOT 



12 IF S=4;PF.T CSR 
!4r! !: "IF DM4 
^STOP iPRT "CSS 
KEH'sSTOP :60T 

13 PRT CSR DSfiJCti) 
;CSR !S:|;C; 



DEFH 9 

IE 28/63/86 

POUR L/HHHHHHEBDO! 



Tl 99/4A BASIC 
ETENDU W 
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10 CALL MAGNIFYC 
SCREEN (2) 
12 CALL CHAR (76'. ' 
F"&RPT*("0". 1B>!< 



CALL CLEAR 



OOOOOOOOOOO 1033B7E77390 

ECFE07FBFEECBB00000000" 



13 FOR 1=20 TO 27 :: CALL SPRI TE (#1 . 76, 1 

6, INT!RND*60)+1, IIMT (RND*230) +1 . O. 3) : : NE 

XT I 

20 CALL CHAR<40, "010003O0O7O01F00" , 41 . "0 

0F00OF80OFE00FF" , 42. ■'0000000001000700" , 4 

3, "0F001F007F00FF00" . 44, RPT* ( "FFOO" . 8) ) 

30 CALL CHAR (45, "010007000F003FOO" , 46, "0 

000010003000700" , 47, " 1F0O3F00FF0OFF00" , 4 

B. "0000000000000 100 ".49. "07000F001F007F0 

") 

40 CALL CHAR (50, "EOOOFOOOFBOOFEOO" , 51 , "0 

000000000008000" , 52. "F800FCOOFFOOFFOO" . 5 

3. "000OS0OOC0OOEOOO",S4, "8000EOOOFOOOFCO 

0") 

50 CALL CHAR (55. "0O0OOOOOO080OOEO" , 64, "F 

FF3E1C1C1C1C1C1",65.RPT*("C1",B> ,66, RPT* 

("83". 8) .67, "9F8F8783S3838383",72, "00000 

OOOFFFFFFFF") 

60 CALL CHAR(56, "BO4O2O10OBO40201 " , 57, "0 
1 020408 1 0204080 " , 58 . " OOOOOOOOOOOOOOFF " , 6 
8,RPT*("F", 16) ,BO,RPT*("F", 16) ) 

61 CALL CHAR (88, RPT* ("FFOO", 8) ) 

70 FOR 1 = 1 TQ 11 : : PRINT "!!!!!!!!!!!!! 
i i ill. ill!!!! N » : : NEXT I 
80 F'RINT "7! ! 

90 PRINT ") ! ! 

91 F'RINT ",6! 
100 PRINT ", , 
HO PRINT 
111 PRINT 
130 PRINT 
140 PRINT 
150 PRINT 
160 PRINT 
170 PRINT 
180 PRINT 
190 PRINT 



,43! 



'P/, , , " 
! 1 , , , , " 

! IB: : : " 
! ! !CPP" 



!-6! ! ! 
",,, 2 !!!.,, S ! ! 

": :9' ! 10/, .43! 

"P@' ' ! ' 1, , , .2! 

"DA! ! ! !8; : : :9' 

" CAHHHHHPPPPHHHHHHHHHHHHHHBpe " 

"BPXXXXXXXXXXXXXXXXXXXXXXXDPA" 

"DPXXXXXXXXXXXXXXXXXXXXXXXDPP" 

"DPXXXXXXXXXXXXXXXXXXXXXXXDPP" 

191 CALL HCHARll, 1,33,321) 

192 CALL VCHAR (11. 2, 40) : : CALL VCHARU2, 
2,44,5):: CALL HCHAR ( 12, 1 , 42) : : CALL HCH 
ARI13, 1,43)10 CALL VCHAR (14, 1,44,3) : : CA 
LL HCHARI17, 1.5B,2) 

193 CALL VCHAR (18, 1,80,6) : : CALL VCHAR ( 1 
B,2,6B,6):: CALL HCHAR ( IB, 2, 80) : : CALL H 
CHARdl.31,55) : : CALL HCHAR ( 12, 31 , 41 ) 

194 CALL VCHAR(13,31,44.5) : : CALL HCHAR ( 
13,32,54):: CALL VCHAR < 14, 32, 44, 4) : : CAL 
L HCHAR(18,31.58,2) : : CALL VCHAR ( 19, 31 , 8 
0,5) 

195 CALL VCHAR (11, 32, 33, 2) : : CALL VCHAR ( 
20,32.6B,4) : : CALL HCHAR ( 19, 32, 80) 

230 CALL CHAR (96, "00000004020 1"&RPT«<" 0" 
,26)!i"3B3B08BC54A61ElC3C76233162") 

240 VT=4 :: CALL SPRITE (#1 . 96, 16, 140, 200 
) 

24 1 CALL CHAR (100," 000000000000000 1 3F0 1 " 
&RPT* ( "0" , 18) &"707010386CDC7C3B78EC4662C 
4") 

242 CALL CHARI 104, "000000000000000101010 
10000000000008080B8B8S89CB4EC9CDCBC76233 
162") 

243 CALL CHAR ( 108, "00000000000002FF02000 
00000000 1 000000007070 187CFE1E1E1C7C6EC6C 
107") 

244 CALL CHARI112, "0000010302"8<RPT* ( "0" , 
22 ) V 70E080BBBBBBFC3C 1 C 1 C 1 C3C76233 162") 

245 CALL CHAR (116, "000103010101 "&RPT*("0 
" , 26) &"BB38BBFC3E1E1E3C3C76233162" ) 

246 CALL CHAR(84,RPT*("0", 16) &" 1F0F"!<RPT 
*("0", 1B>V1C1C04FE1FF2FC1E7COOOOOOOO"> 

999 RANDOMIZE :: A=INT (RND*3) +1 : : ON A 
GOSUB 5000 . 6000 , 7000 

1000 CALL KEY(0,K,S> 

1010 IF K<>88 THEN 1020 

1011 CALL P( 1,100):: P0=1 

1020 IF K<>69 «THEN 1030 

1021 CALL P<1, 112) 

1022 FOR H=l TO 10 

1023 CALL C(4, 1, 12, E) : : IF E THEN 10500 

1024 NEXT H 

1025 CALL p(l,96) 

1030 IF KOB3 THEN 1040 

1031 IF P0=0 THEN 1040 
: CALL C(l,2, 12, R) : : IF 

1032 GOSUB 4O00 

1040 IF K<>68 THEN 1050 

1041 CALL PU, 104)1! CALL C ( 1 , : 
IF E THEN 10000 

1042 CALL W(70):: CALL F(l,96) 
1050 IF K<>6S THEN 1060 



CALL P(l, 10S) : 
THEN 1 2000 



, 12. L) : 



1051 CALL P(l,96) 

1060 IF KOB7 THEN 1070 

1061 CALL P(l, 116) 

1062 FOR M=l TD 3 :: CALL POSITION (#1 . Yl 
,X1,#3,Y,X) 

1063 IF X>Xl-20 THEN 11000 

1064 NEXT M 

1065 CALL P(l,96) 

1070 IF K<>82 THEN 1080 

1071 CALL P<1, 84)11 CALL POSITION (#1 , Y, X 
):: CALL LOCATE (#1,Y-5,X ) 

1072 CALL C(l,5, 10, R) : : IF R THEN 13500 

1073 CALL W(100):: CALL P<1, 96)11 CALL P 
0SITI0N(#1,Y,X) : : CALL LOCATE (#1 , Y+5, X > 
1080 RETURN 

4000 CALL C(l,3, 12, R) : : IF R THEN 10000 
:: CALL C ( 1 , 2. 12, E) : : IF E THEN 12000 
4030 POO :: CALL P(l,96):: RETURN 

5000 ! 

500 1 CALL CHAR ( 1 20 , " 0000000 1 1 1 1 1 0303 
03030 101 030 1 0O00OO00C287CEOC9BF0COB00000 
0080") 

5003 CALL CHAR (124, "00000001010101010303 
03010102020300000000C2B7CEOC98F080402040 
6000") 

5004 CALL CHAR 1 128, "00000001010101010303 
03010202030000000000C287CEOC9BF080BOB040 
4060") 

5005 CALL CHAR (132, "00000001010101010303 
0301 0204020000000000C287CEOC98FOC0808080 
80C0") 

5006 CALL SPRITE (#2, 120, 14, 141, 18) 
5010 CALL MOTION (#2, 0,VT) 

5019 FOR R=l TO 30 

5020 CALL P<2, 124)11 CALL C (2, 1 , 12, W) : : 
IF W THEN 11500 

5030 GOSUB 1000 

5O40 CALL P(2, 128)1! CALL C (2, 1 . 12, W) : : 

IF W THEN 11500 

5050 GOSUB 1000 

5060 CALL P(2,132)ll CALL C (2, 1 , 12, U) : : 

IF W THEN 11500 

5070 GOSUB 1000 

50B0 CALL P(2, 120)11 CALL C (2, 1 , 12, W) : : 

IF W THEN 11500 

5090 GOSUB 1000 

5100 NEXT R 

6000 ! 

6001 CALL CHAR (120, "00000002020101030303 
O303O77F0OO00OO0O00O00000OC080B0E0COC0C0 
0000") 

6002 CALL CHARI 124, RFT*("0", 18) S."7FFF9F9 
C 1 02 " S.RPT* ( " " , 1 7 ) ?< " 20 1 CF6FFE0 1 008 1 000 " ) 

6003 CALL CHAR (128, RPT* ("0", 18) &"7FFF98B 
C0703000000000000000020 1 CF6FF60C0BO000O " 
) 

6004 CALL CHAR ( 132, "203B1E1F1F0FO3013F01 
0000000000000000008080COCOFBF7FC03000000 
0000") 

6005 CALL CHAR ( 136, "00000000000000003F03 
070F 1 F 1 F3EFB0OOOO000O0000OFBF7FCC3C080BO 
0000") 

6006 CALL CHAR(140,RPT* ( "0" , 38) &"E0C0E09 
0OOOC7B0O0000000OOO " ) 

6010 CALL SPRITE (#3, 120,9, 142, 22, #4, 140, 
16, 142,22) 

6011 CALL M0TI0N(#3,0,4,#4,0,4) 

6020 E=INT(RND*50>+1 :: FOR G=l TO E :: 

NEXT G 

6030 RANDOMIZE :: R=INT (RND*3> +1 : : ON R 

GOTO 6040,6100,6200 
6040 ! 

6050 FOR R=l TO 130 
6060 GOSUB 1000 

6070 CALL C(3, 1, 12, E) : : IF E THEN 11500 

6071 E=INT(RND*10)+1 :: CALL MOTION (#3.0 
,E,#4,0,E> 

60B0 NEXT R' 

6 1 00 ! 

6101 CALL DELSPRITE (#3) : : CALL P(4,132): 
: CALL COLOR (#4. 2) 

6110 FOR G=l TO 5 : : CALL MOTION (#4, -5, O 

):: CALL PI4.136):: CALL W(100):: CALL P 

(4,132):: CALL W(80):: NEXT G 

6120 CALL F0SITI0N(#1,Y, X,#4,Y4,X4) : : D= 

SGNIY-Y4):: E=SGN ( X-X4) : : CALL M0TI0N(#4 

,D«7.E*7) 

6140 CALL PI4.132):: CALL C (4, 1 , 12, E) : : 

IF E THEN 11500 

6150 GOSUB 1000 

6160 CALL p(4,136):: CALL C (4, 1 , 12, E) : : 

I F E THEN 1 1 500 

6170 GOTO 6120 

6200 ! 

6201 CALL DELSPRITE (#4) : : CALL P(3, 124) 

6202 CALL MOTION (#3, 0, 10) 
6205 FOR P-l TO 50 

6210 CALL P(3,128):: CALL C (3, 1 . 1 2. R) : : 

IF R THEN 11500 

6220 GOSUB 1000 

6225 CALL P(3, 124)1! CALL C (3. 1 . 12, R) : : 

IF R THEN 11 500 

6230 GOSUB 1O00 

6235 NEXT P 

7000 ' 

7001 CALL CHAR ( 120, "1C9C50383S5C5C9A1810 
103018000000"SiRPT*("0",32) , 124, "1C9C5038 
3S385C5C1412242630000000"!<RPT* ( "0", 32) > 

7002 CALL CHAR(128. " 1C9C50383838383B1 Bl 4 
243406000000 "&RF'T* ( "0". 32) ) 

7003 CALL CHAR ( 132. " 1C9C50383B3B5C5C1C2S 



4828OCO00000 " &RPT* < " " , 32 ) > 

7004 CALL CHAR ( 136, "3838A07FFB4F3F783E00 

OO00OO0O0O00OOOOOO00O0F8FO00O00O00O0000O 

0000") 

7010 CALL SPRITE<#5, 120,2, 144,22) 

7020 CALL MOTION (#5, 0,4) 

7030 FOR G=l TO 30 

7031 RANDOMIZE : : AS=INT (RND*2) +1 :: ON 
AS GOTO 7040,7100 

7040 CALL P<5, 124)11 CALL C(5,1,5,E):: I 

F E THEN 11500 

7050 GOSUB 1000 

7060 CALL P(5, 128)11 CALL C(5,1,5.E):: I 

F E THEN 11500 

7070 GOSUB 1000 

7080 CALL P(5,132):i CALL C(5,1,5.E):: I 

F E THEN 11500 

7090 GOSUB 1000 

7091 CALL PIS, 120):: CALL C(5,1,5,E):: I 
F E THEN 11500 

7092 GOSUB 1000 

7093 NEXT G 

7100 CALL PI5.136):: CALL SOUND ( 10, -1 , 0) 
:: CALL POSITION (#5. Y, X ) : : CALL LOCATE(# 

5.Y-5, X-f4) 

7110 CALL CI5,1,5.R):: IF R THEN 11490 

7120 GOSUB 1000 

71.30 CALL P0SITI0N(#5,Y, X) : : CALL LOCATE 
(#5,Y+5,X):: CALL PIS, 120):: GOTO 7040 

10000 CALL M0TI0N(#3,0,0) 

10001 CALL SOUND (100, -7.0) 

10002 CALL DELSPRITE(#3) : : GOTO 13000 
10500 CALL MOTION (#4, 0. 0) : : CALL SOUND < 1 
00,-7,0):: CALL SOUND ( 100, -6, 10) : : FOR I 
= 1 TO 16 :: CALL. COLOR (#4. I ) : : NEXT I :: 

CALL DELSPRITE(#4) 
10504 GOTO 13000 

11000 CALL M0TI0N(#3.0.0,#4,0,0) : : CALL 
CHAR ( 124, "000000000201 01 03O101OOO3O70FOO 
0000000O0OO0OOOOCOS080E0C0C0O00O0O") 

11001 CALL CHAR ( 128, "0000000002000103010 
1OOO3O7OOO0OOOOOOOOO00000OO008OBOEO80BO8 
00000") 

11002 CALL CHAR (132, "0000OO00O0OOO10101O 
1 000 1 0000000000000000000000008080BOBOOOO 
00000") 

11003 FOR 1=1 TO 16 :: CALL C0L0R(#4.I>: 
: NEXT I :: CALL DELSPRITE (#4) 

11004 CALL S0UND(200,-5,0) :: CALL P(3,12 
4):: CALL SOUND ( 10, -6, 0) : : CALL W(100):: 

CALL P (3,128):: CALL SOUND ( 10, -7, 0) 

11005 CALL W(100):: CALL P(3, 132)1! CALL 
SOUND (10, -5,0) 

11006 CALL U(100):: CALL DELSPRITE (#3) : : 
CALL S0UND(100,-1.0> 

11007 GOTO 13000 

11490 CALL P0SITIDN(#5, Y,X) : : CALL LOCAT 
E(#5,Y+5,X> 

11500 CALL MOTION<#2,0.0,#3,0,0,#4.0,0,# 
5,0,0) 

11501 CALL SOUND (400, -7,0) 

11502 CALL CHAR (60, "00000000000000000000 
OOOOOOFFDFCF0000000000000000000000000080 
COFE" ) 

11503 CALL P(1,60)!I CALL WI400):: CALL 
DELSPRITE (ALL) : : CALL CLEAR 

1 1504 END 

12000 CALL M0TI0N(#2,0,0) : : CALL CHAR<14 
O. RPT* ( "O" , 26) 8,"5377FF"i<RPT* ( "O" , 26) &"B0 
C4FC") 

12001 CALL p(2,140):: CALL SOUND ( 100, -7, 
0)11 VT=VT+1 :: CALL W(200):: CALL DELSP 
RITE(#2):: GOTO 13000 

13000 CALL P(l,96):: CALL F'OSITION (#1 , Y. 
X):: CALL LOCATE (#1 , Y, X-B) : : IF X<80 THE 
N 14000 

13001 GOTO 999 

13500 CALL MOTION (#5. 0, 0) : : CALL CHAR (14 
0, "000O0000000000000O003337FF00000000000 
OOOOOOOOOOOOOOOEOFDFFOOOOOO " ) 

13501 CALL POSITION <#1.Y,X> : : CALL LQCAT 
E(#1,Y+5,X) : : CALL PU, 96)11 CALL P(5,14 
0)11 CALL SOUND (100, -7. 0) : : CALL U<300) 

13502 CALL DELSPRITE (#5) : : GOTO 13000 
14000 CALL M0TI0N(#l,0.-4) : : CALL POSITI 
0N(#1,Y,X):: IF X<20 THEN 14100 ELSE 140 
00 

14100 CALL MAGNIFYI3):: CALL SCREENI2):: 
CALL DELSPRITE(ALL) : : CALL CLEAR :: CAL 

L CHARSET 

14101 ZX,CP,HJ=0 

14110 CALL CHARI40, "FF0B0B0BFFB0B080" . 41 
. RPTJC'F", 16) ) : : CALL COLOR (2. 15. 7) 

14121 CALL CHAR (56, "004424 155F3E 14", 64, " 
F0793A1COC060201 "&RPTS ( "0" , 54) ) 

14122 CALL CHAR (BO. "4242423C24424242" . 72 
. "FF00FF00FF003F00" , 73, "3FO03F0OFFO0FFO0 
",74,RPT*("FF00",4) ) 

14123 AS=29 : : B=4 

14130 FOR M=5 TO 22 

14131 CALL HCHAR (M. AS, 40. B) 

14132 AS=AS-1 :: B=B+ 1 

14133 NEXT M 

14140 CALL VCHAR<1,32,74,4) :: CALL HI2.3 
2.72):: CALL H<3,32.73) 

14143 CALL HCHAR!23. 1.40,64) : : CALL VCHA 
R(l,3,80. 15) 

14144 CALL H<4, 10,56):: CALL H(4, 19,56): 
: CALL SF'RITE (#20,64. 1 4, 35, 76, #21 , 64, 14, 
35, 150) 

14145 CALL CHAR (96, "0001010303070707", 97 



. " OFOEOCOC 1 8 1 B 1 078 " , 98 . " 7E776363373F0F07 
",',9, "7038FCFEFF3FC0FF") 

14146 CALL CHAR (100, "0000000080F81C1E" , 1 
01 , "00000080C0C0E0F0" , 102, "000040407C547 
C2C1B" , 103. "FCFEFBADDBFFFE7E") 

14147 CALL CHARU04, " 1C3E3F03010101 "8<RPT 
* ( "0" . 24) .V8080C0C0C0C0C0402000000000" ) 

14148 CALL CHAR(108, "00081C1C08"&RFT* ( "0 
",58)) 

14149 CALL H(20.3, 102) : : CALL H(21,2,96) 
:: CALL H (21,3, 103) 1 1 CALL H (21 , 4, 101 > : : 

CALL H (22, 2, 97) 

14150 CALL H(22,3,98):: CALL H(22,4,99): 
: CALL H(22,5. 100) 

14151 CALL SPRITE (#22, 104, 12, 154, 17. #23, 
108.3, 169. 17) 

14152 CALL CHAR (88, "80808080B0B080B0" , 89 
, "FFOOOOOOOOOOOOOO" ) : : CALL HCHAR (16, 1.8 
9,6):: CALL VCHAR ( 16, 6, 88, 7) 

14153 CALL HCHAR (23. 1,41,32) 

14154 CALL CHARI132, "70F8DBF07A0C0F06"!<R 
PT*("0".54> ) 

14155 CALL SPRITE(#3, 132, 12, 170,240) 

1 4 1 60 CALL CHAR (112. " 0000000000000000000 
000000000000038390A 1 C 1 C3A3A59 1 808080C 1 80 
00000" > 

14170 CALL CHAR (1 16, " 0000000000000000 1F0 
FOOOOOOOOOOOOOOOOOO 1 C 1 C04FE 1 FF2FC 1 E7C000 
00000") 

14171 CALL CHAR ( 1 20 , " 00000004020 1 0000000 
0000000000000000000383808BC54A6 1E1C3C762 
33162") 

14172 CALL CHAR(124, "0000001C1 C103D2E657 
8383C6EC48C46000OOO2040BOO0000O000O0O00O 
00000") 

14173 CALL CHAR(128, "3838A07FFB4F3F783E0 
OOO000OOOO0OO00OOOO0000F8F00000OOOOO0OO0 
00000") 

14174 CALL SPRITE(#10, 112,2, 166, 220, #1, 1 
20, 16, 17,230) 

14175 CALL COLORIB, 16, 1.9,9, 1,7,3, 1,3, 13 
,7,4,12,1,5,14,1,6,7,1) 

14180 CALL POSITION (#1,Y,X) 1! CALL LOCAT 
E(#1,Y,X-12) 

14181 FOR G=l TO 100 

14182 CALL P0SITI0N(#1.Y.X) : : CALL LOCAT 
E(#l,Y+B,X-8> : : CF-CP+1 :: IF CP=1B THEN 

14190 :: CALL SOUND ( 10, -1 , O) : : CALL W(2 
00) 
141B3 NEXT G 

14190 CALL KEY(0,K,S> 

14191 IF ZX=1 THEN 14200 ELSE FG=INT(RND 
*3)+l :: ON FG GOTO 14200,14240,14200 

14200 IF K<>83 THEN 14210 

14201 CALL PU, 120)11 CALL POSITION (# 1 , Y 
,X>:: IF X<30 THEN 15500 :: CALL LOCATE! 
#1, Y, X-5) : : P0=0 

14210 IF K<>6B THEN 14220 

14211 CALL PU, 124>n CALL POSIT ION (#1 . Y 
,X>:: IF X>240 THEN 14190 

14212 CALL L0CATE(#l,Y,X+5) : : P0=1 

14213 CALL CI1.3, 12, E) : : IF E THEN 16000 
:: CALL C ( 1 , 10. 5,R) : : IF R THEN 11500 

14220 IF K<>69 THEN 14230 

14221 IF P0=1 THEN 14225 

14222 CALL PU, 116)11 CALL FOSITION (# 1 . Y 
,X):: CALL LOCATE (#1 , Y-6, X-4) : : CALL C(l 
,10, 5, Ell! IF E THEN 15000 

14223 CALL W(100):: CALL POSIT ION (#1 , Y. X 
):: CALL LOCATE (#1 , Y+6, X >: : GOTO 14229 

14225 CALL PU, 128) I : CALL POSITION (#1 , Y 
,X):: CALL LOCATE (#1 , Y-6, X+4) : : CALL CU 
,10, 12, R):: IF R THEN 15000 

14226 CALL W(100):: CALL POSITION (#1 , Y, X 
):: CALL LOCATE (#1 , Y+6, X ) 

14227 CALL PU, 124)11 GOTO 14230 

14229 CALL PU, 120) 

14230 GOTO 14190 

14240 CALL POSIT ION (#10, Y, X ): : CALL P (10 
, 116) 

14241 CALL LOCATE (#10, Y-10, X-4) : : CALL C 
(10,1, 3, E)l! IF E THEN 11500 

14242 CALL W(200):: CALL P(10.112):: CAL 
L L0CATE(#10,Y,X) : : IF X<100 THEN CALL '. 
OCATE<#10, 166,220) 

14243 GOTO 1420O 

15000 CALL P0SITI0N(#1.Y, Y; : : CALL LOCST 
E(#1,Y+6,X) : : CALL PU, 120)11 CALL DELSP 
RITE<#10>:: CAL1 SOUND (100, -7, O) : : ZX=1 
: : GOTO '.4190 

15500 IP HJ=0 THEN 14190 

15501 CALL VCHAR (16, 6. 32. 7) : : CALL G 
16000 CALL DELSPRITE (#3) li CALL SOUND do 
.990.0):: HJ=1 :: GOTO 14190 

30403 END 

32000 SUB W!X):: FOR 0=1 TO X : : NEXT Q 

: : SUBEND 

32100 SUB P(A.B):: CALL PATTERN <#A, B) : : 

SUBEND 

32200 SUB H(A.B.C):: CALL HCHAR (A, B, C) : : 

SUBEND 
32300 SUB C(A.B,C.D):: CALL COINC(#A.#B. 
CD):: SUBEND 

32400 SUB G 

32401 CALL MOTION (#1 , 0.0) 1 I CALL W(500): | 
: CALL CLEAR 

32402 PRINT "BRAVO 1 ' GAGNEE": : : 

32403 END 

32404 SUBEND • 
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FOX 



En cueillant les KLOPS aux commandes d'un helicoptere, 
decouvrez avec ravissement une jungle amicale peuplee 
d'araignees geantes, de fleurs mortelles, de pieges invisi- 
bles et de cerceaux tueurs... 

Bruno PONCIN 



ERRATUM AMSTRAO du N° 135 

TANK OF TRON II 

Extraordinaire, nous avons 

retrouve la ligne 1860. 



•'BEO FOR 
lie .-DRAW 



g = TO 2+c:MOVE gxc,(5-g) 
8*c,<g-5>*c,C<c MOO 2>*1) 



SUITE DU 
N°137 



3120 DATA 1 ,3,0,8.. 0,0 jO, 1 , 0,0 ,0,0, 

1 ,0,2,0,2,2,0,1 

31 30 DATA 1,0,1,1,1,1,1,1,1,1,1,1, 

1,1,1,1,1,1,0,1 

3140 DATA 1,0,0,0,1,0,0,0,1,5,5,1, 

0,2,0,1 ,0,4,0,1 

31 50 DATA 1,0,0,0,1,1,1,1,1,5,5,1, 

1,1,1,1,0,0,0,1 

3160 DATA 1,2,0,0,0,1,1,1,5,5,5,5, 

1,1,1,0,0,0,0,1 

3170 DATA 1,2,2,0,0,0,1,5,5,2,5,2, 

2,1,0,0,0,0,0,1 

3180 DATA 1,2,2,2,0,0,1,0,2,5,2,2, 

2,1 ,0,0,0,0,0,1 

3130 DATA 1,2,2,2,2,1,1,1,2,2,2,2, 

1,1,1,0,0,0,0,1 

3200 DATA 1,1,1,1,1,1,1,1,1,1,1,1, 

1,1,1,1,1,1,1,1 

3210 REM 

3220 REM VII 

3230 REM 

3240 DA T'A 1,1,1,1,1,1,1,1,1,1,1,1, 

1,1,1,1,1,1,1,1 

3250 DATA 1,0,0,0,1,0,6,0,0,0,0,0, 

0,0,0,1,0,0,0,1 

3260 DATA 1,0,0,8,1,2,6,0,0,0,0,0, 

0,0,0,1,0,0,0,1 

3270 DATA .1,0,0,1,1,1,1,1,1,1,1,1, 

1,1,1,1,1,0,0,1 

3280 DATA 1,0,0,0,1,0,4,0,0,0,0,0, 

0,0,0,1,0,0,0,1 

3230 DATA 1,0,0,0,1,0,0,4,0,0,0,0, 

0,0,0,1 ,0,0,2,1 

3300 DATA 1,0, 0,0, 0,0,0., 0,0, 0,0,0, 

0,0,0,0,0,2,2,1 

3310 DATA 1,1,1,1,1,1,1,1,1,1,1,1, 

0,0,0,0,2,2,2,1 

3320 DATA 1,0,0,0,0,0,0,0,0,0,0,4, 

0,0,0,2,2,2,2,1 

3330 DATA 1,0,0,0,0,0,0,0,1,1,1,1, 

1,1,1,1,1,1,1,1 

3310 DATA 1,7,0,0,0,0,0,0,0,0,0,0, 

0,1,0,1,0,0,2,1 

33S0 DATA 1,1,2,2,2,0,0,0,0,0,0,0, 

0,1,0,1,0,0,1,1 

33E0 DATA 1,1,1,1,2,2,0,0,0,0,0,0, 

0,1,7,1,1,1,1,1 

3370 DATA 1,1,1,1,1,1,0,0,0,0,0,0, 

0,1,1,1,1,1,1,1 

338C DATA 1,1,1,1,1,1,1,1,3,0,0,0, 

1,1,1,1,1,1,1,1 

3390 DATA 1,1,1,1,1,1,0,0,0,0,0,0, 

0,0,1,1,1,1,1,1 

3400 DATA 1,1,1,1,0,1,0,0,0,0,0,0, 

0,0,1,0,1,1,1,1 

3410 DATA 1,1,0,0,0,1,0,0,0,0,0,0, 

0,0,1,0,0,0,1,1 

3420 DATA 1,2,0,0,2,1,0,0,2,2,0,0, 

0,2,1,0,2,2,2,1 

3430 DATA 1,1,1,1,1,1,1,1,1,1,1,1, 

1,1,1,1,1,1,1,1 

3440 REM 

3450 REM VIII 

3460 REM 

34 70 DATA 1,1,1,1,1,1,1,1,1,1,1,1, 

1,1,1,1,1,1,1,1 

3400 DATA 1,0,0,0,8,0,0,4,0,0,0,0, 

0,1,0,0,2,2,2,1 

3430 DATA 1,0,0,1,1,0,0,0,0,0,0,0, 

0,5,2,2,2,2,2,1 

3500 DATA 1,0,1,1,1,1,0,0,0,0,0,0, 

0,1,1,1,1,1,1,1 

35 1 DATA 1,0,1,1,1,1,1,1,0,0,1,0, 

0,5,2,0,0,0,7,1 

3520 DATA 1,0,1,1,1,1,1,1,1,1,1,0, 



,1,1,1,1,1,0, 

,1,0,0,0,1,0, 

7,0,0,0,0,0, 

,1,2,2,1, 



.0,0, 



1,1 ,1,1 ,0,0, 



',1,1,0,0,0,0,0,0, 

,1,1,1,2,0,2,2,0, 
,1,1,2,2,2,1, 
(1,1, 



1,1. 



0,1,1,1,1,1,1,1 

3530 DATA 1,0,1,1,1 

0,5,2,0,2,2,7,1 

3540 DATA 1,0,0,1,1,1 . 

0,1,1,1,1,1,1,1 

3S50 DATA 1,0,0,1,1,1, 

0,5,3,2,2,0,0,1 

3560 DATA 1,0,0,0,1,1, 

0,1,1,1,1,1,1,1 

3570 DATA 1,0,0,0,1,1, 

0,0,0,0,0,0,0,1 

3580 DATA 1,0,0,0,1,1,1,1,1,1,0,0, 

0,0,0,0,0,0,0,1 

3530 DATA 1,0,0,0,1,1,1,0,0,1,0,0, 

0,0,0,0,0,0,0,1 

3600 DATA 1,0,0,0,1,1,0,0,0,0,0,0, 

0,0,0,0,0,0,0,1 

3610 DATA 1,0,0,2,1,1,0,0,0,0,0,0, 

0,0,6,6,0,6,6,1 

3620 DATA 1,2,2. 

0,1,1,0,0,0,0,1 

3630 DATA 1,2,2,1. 

1,1,1,1,3,0,0,1 

3640 DATA 1,2,1,1, 

1,1,1,1,1,3,0,1 

3GS0 DATA 1,1,1,1,1,1,2,1,1,; 

1,1,1,1,1,1,2,1 

3660 DATA 1,1,1,1,1,1,1,1,1,1,1,1, 

1,1,1,1,1,1,1,1 

3670 pause" 100: IE J=4 OR J=5 OR j= 
6 THEN xx~-xx-<t<xx + 1 ,uy>»0 OR t<xx 
♦ 1,yy>=6> ELSE IF J=8 OR J==9 OR j = 
10 THEN h = i« (t ( xx-1 ,yy)~0 OR tCx 
x~1 ,yy ) -=G) 

3680 LOCATE xx,yyzPEN 61PRINT CHR* 
(2164 INT(RN0*3+1 > ) 1 FOR p=1 10 pans 
ex NEXT: LOCATE xx,yyz PRINT " ":yy»y 
y + 1 : SOUND 1 30 , , 4 , yy/2 ,0 ,0 , yy 
3630 IF t<xx,yy>=0 THEN pause»paus 
s- 10 1 GOTO 3680 
3700 yy=yy-1zF0R n«219 TO 216 STEP 

-1:L0CATE xx,yyzPEN G: PRINT CHR»< 
n ) 1 NEXT 

3710 FOR boucle=1 TO 1500sNEXTivi= 
vi-1zIF vi = THEN 3750 
3720 PEN 1:L0CATE 1,22:PRI.NT vi*;" 

":vi zLOCATE xx,yy:PRINT " ":n = « 
xzyy=«yyyzss=»OzPEN 1: LOCATE xx,yyzF 
RINT CHR* < 190) I GOTO 1460 
3730 dese=1 spause=75zF0R n=;207 TO 
215JPEN 3IL0CATE xx,yyiPRINT CHR*< 
n ) : F R b o u c I e »1 TO 1 2 : d e s c ~ d e s c -i- 1 : 
SOUND 1 , desc ,1,12: NEXT boue I a : paus 
e=pause-15zNEXT 
374.0 GOTO 3710 
3750 GOTO 43 SO 
3 760 RESTORE 1860: RETURN 
3770 RESTORE 2030: RETURN 
3780 RESTORE 2320:RETURN 
3730 RESTORE 2550: RETURN 
3800 RESTORE 2780: RETURN 
3810 RESTORE 30 10: RETURN 
3820 RESTORE 3 2 4 : R E T U R N 
3 830 R E S T R E 3 4 7 : R E T U R N 
3840 5,3=1 I sc=sc+ 2500 z RETURN 
3850 REM 

3860 REM presentation 
3870 REM 

3880 DATA 7,8,3,0,3,8,7,6,0,6,6,3, 
6,0,6,3,6,5,0,5,5,7,5,0,5,4,2,3,8, 
0,8,9,10,0,10,3,8,7,0,7,8,3,0,3,8, 
7,6,5,0,5,6,0,6,0,6,7,8,0,8,3,10,0 
,10,3,8,7,0,7,0,7,7,10, 7 , 6 , 0,6,6, 8 
,6,0,6,5,3,0,3,6,3,0,3,10,11,0,11, 
10,9,8,0,8,3,10,0,10,0,10,3,8,7,6, 
0,6,5,7,0,7,3,10 

3890 DATA 0,10,0,10,9,8,12,0,12,0, 
12,11,10,11,0,11,0,11,10,8,3,5,6,8 

, a , 3 , 1 00 , 1 00 , 1 00 , 1 00 , 100, 100, 100, 1 

00 , 1 00 , 1 00 , 1 00 , 1 00 , 1 00 , 1 00 , - 1 




AMSTRAD 







3900 REM 

3910 REM regla du jeu 

3920 REM 

3330 DATA 7,0,7,0,7,0,7,6,5,4,3,0, 

3,5,7,10,0,10,0,10,0,10,3,8,0,8,7, 

6 ,0,6,7,8,7,8,7,9,8,7,0,7,6,5,0 , 5 , 

4,3,4,0,4,0,4,0,4,5,4,3,0,3,0,3,0, 

3,0,100,1 00 , 1 00 , 1 00 , 1 00 , 1 00 , 1 00 , 1 

0,100,1 00 ,100,100,1 00 ,100,1 00 , 1 00 , 

100, 1 00 ,100,1 00 ,100,1 00 , 1 00 , 100, 1 

0, 100, 100, 100, -1 

3340 REM 

3950 REM mort 

3360 REM 

3970 DATA 5,6,7,0,7,8,0,5,6,7,0,7, 

8,0,9,0,3,8,7,6,0,6,0,3,0,3,8,7,6, 

0,6,0, 1 00 , 1 00 , 100, 100, 1 00 ,100,1 00 , 

100', 100, 100, -1 

3380 REM 

3390 REM REGLES DU JEU 

4 000 REM 

4010 CLSlMODE IzBORDER 6,18:SPEED 

INK 25,25 

4020 PEN 1 

4030 TAGlHOVE 320-1 .5*1 6, 400-32: PR 

INT "FOX" ; sTAGOFF 

4040 LOCATE 1,5:PRINT " vous dir 

igez un hel icoptere,et devaz mange? 

tons les KLOPS : " ; : PEN 2iPRINT C 
HR*( 198) ; :PEN 1 zPRINT "II y a 8 t.a 
b I eaux * F'our passer- d'un table 
au a un autre, i I faut avoir manger 

tous I es fruits . " 
4050 PRINT 

4060 PRINT " Mais attention ! 1 1 n 
e faut. pas vous heurter aux arai 
griees : "zzPEN 2:PRINT CHR*(202)z 
F'EN 1 zPRINT "ni aux cercaaux tueur 
s : ";:PEN 2:PRINT CHR* ( 200 > ; : PEN 
1:PRINT " ." 
40 70 PRINT 

4080 PRINT " Pour- corser le tout 
,il a ate rajoute des fleurs niorte 
lies : "fiPEN 2:PRINI CHR*(204):PE 
N 1 1 PR I NT "a. 1. nsi qua das pieges in 
v i s i bias qui vous g o b en t I o r s qua v o 
us passes dassus." 

4030 PRINT " A partir du 4 em tab 
leau,vous decouvrirez avec 

pi I a i s i r q ue de s helico p ter 

es ennemis vous pour ehassen t . " 
4 100 PEN 3: message*" "PRESSEZ <ESPA 
CE> SVP":L0CATE 20-LEN (massage* > /2 
,24:F'RINT message* 
4110 RESTORE 3330 

4120 READ asdiIF asd=-1 THEN 4110 
4130 IF INKEY*=" " THEN 4170 
4140 IF asd=100 THEN FOR boucle=1 
TO 250: NEXT: GOTO 4120 

4150 IF asd=0 THEN SOUND 7,0,1 ELS 
E SOUND 7,ziq<asd>,30 
4160 GOTO 4120 

4170 WINDOW 1 ,40 , 5 , 25 : CLS : WINDOW 1 
,40, 1 ,25 
4180 PEN 2 

4130 LOCATE 1,6-z PRINT " Vous dir 
igez votve helicoptere : "jzPEN 1: 
PRINT CHR*(190) iPEN 2:PRINT "grace 

a la manette da Jeu. ": PRINT: PRINT 
Dans ehaque tableau, vous avez 

droit a six tirs laser- qui vous 

permettent de vous frayer un pa 
ssage dans la'' 

4200 PRINT "Jungle. "sPRINT " Mai 
s attention : Dans ehaque tableau, 
(sauf Is premier ), ehaque tir- a un 
usage precis . Done , na gaspillaz pas 

vos tir-s inuti I entent, sans quoi 
vous ne pourrez ar river au bojt d 
u par-cours . " 




4210 PRINT.zPRINT " Le nombr-e de 
tirs res tan ts est represente 

en bas de I'ecran par des "zzPEN 
IzPRINT CHR* ( 206 ): PEN 2sPRINT "(si 
x au depart). Vous tirez grace au 

bou t o n Eur I a m a n e 1 1 e • " 
4220 PEN 3: LOCATE 20 LEN ( message*) 
/2 , 24 : F'RINT message* 
4230 GOTO 4250 
4240 RESTORE 3330 

4250 READ asdiIF asd---1 THEN 4 240 
4260 IF INKEY*=" " THEN 4300 
4270 IF asd=100 THEN FOR boucle==1 
TO 250: NEXT: GOTO 4250 

4280 IF asd==0 THEN SOUND 7,0,1 ELS 
E SOUND 7 .ziq(asd) ,30 
4230 GOTO 4250 

4300 WINDOW 1 ,40,5,25:CLS:WIND0W 1 
,40 , 1 ,25 

4310 LOCATE 1,7: PEN 3: PRINT " Lo 
rque vous vou I az sortir du 

programme, rien de plus facilezapp 
uyez deux fois sur J ESC J et vous 

rev e n e z a u B A S I C . ' ' 
4 3 2 P E N 1 : L OCA T E 2 - L E N ( m a s s a g e * ) 
/2,20:PRINT message* 
4330 IF INKEY*<>" " THEN 4330 ELSE 

1170 
4340 BORDER 1 : MODE 1zINK 0,1: INK 1 
,24: INK 2, 6: INK 3,18:PEN 1: PAPER 
: CLS: LOCATE 1,1: PRINT "BASIC" : TAG : 
MOVE 24,333-16:PRINT "IS" : ZTAGOFF 
zLOCATE 1,3:0N BREAK STOPzEND 
4350 REM 
4360 REM mort 
43 70 REM 

4380 RESTORE 3970 
4390 READ asd 
4400 IF asd==-1 THEN 4440 
4410 IF a«d=1O0 THEN FOR boucle=1 
T O 2 5 : N E X T boudezGOTO 4 3 9 
4 420 IF asd==0 THEN SOUND 7,0,1 ELS 
E SOUND 7,ziq(asd> ,30 
4430 GOTO 4330 
4 440 FOR n=1 TO 1000: NEXT 
4450 IF scire THEN ra=sc 
4460 GOTO 1080 
4470 REM 
4480 REM 
4400 REM II est possible de rajo 



das tableaux I 
le modifier e; 
a I igne 1850. 



utar ou 'de modifier 
our ce I a , i I su f f i t 

DAT AS a partir ds 
4500 REM 

4510 REM A I ' inter-ie-ui- des DATAS 
, c l"i a q u e c h if fr-e r a p r a s a n t a u n s y m b 
o I e fa i sent parti a du tableau* 
4520 REM 

4530 REM A INS I. : 
4540 REM 
4550 REM 
4560 REM 
4570 REM 
4580 REM 
4580 REM 
4600 REM 
4610 REM 
4620 REM 
4630 REM 
aul ! 

4G40 REM 
4650 REM 



0-uTi espace 

1«un moreaau de Jungle 

2-uti f r u i t- 

3--un cer-ceau tueur 

4-UTie araignee 

5 ■- u ne f I a u r v a n i me us e 

6 w u n p i e g e i n v i s i l::i I e 
2 op ter a en n ami 

he I icop'tere 1 un ? 



7=un ha I 
EJ-votr-i 



v o 1 j ;: 



j o u t e z des 
b I eaux , n ' oub I iaz pas de rajoutar 
es numeros de I ignes a la ligne 
20 at. de rajouter das restore ap 
5 c;eux de la ligne 3820. 
4GG0 REM m 



T09,M05w 

Suite dm la rota* c 



Suite de la page s 



636 IFi.X=ECl AND Y=ECL 1 UHEN GOTO 39560 
ELSEIF(X=EC1+1ANDY=ECL1 )THEN GOTO 39566 
ELSE 633 

633 IF<X«ECS AND Y=ECL2)THEN GOTO 39566 
ELSEIFCX=EC£ + lfiNDY=ECL2)THEN GOTO 39566 
ELSE RETURN 

635 L0MTEEC1,ECL1:PRINT LOCftTEEC:£,E 

CL2: PRINT RETURN 

648 ' LflZERS 

645 IF LAZERS=6 THEN LftZERS=l ELSE Lh2ER 



650 
655 

flTEL 

:PRI 

668 

«L) 

663 

»L) 

665 

:PRI 

CATE 

66 



IF LfiZ 
C0L0R1 
A1,LAZ 
NTLAZt 
FOR L= 
THEN 3 
FOR L= 
THEN 3 
FOR I 
NT" " 
LA£, I 
***** 



ERS=1 THEN 665 

l,8:PLfiY"05T5L£A4SISIRERE":L0C 
1 + 1 : PRINTLflZ$: LOCATELAg, LAZ2 + 1 



LAZ1 TO LAZ1<-4:IF o;=LAl AND 
9588 ELSE NEXT:G0T0 633 
LAZ2 TO LAZ2*4:IF < X=LA£ AND 
9580 ELSE NEXT: RETURN 
LAZ1+1 TO LAZ1+4:L0CATELA1, I, 
NEXT:F0R I=LAZ2+1 TO LAZ2+4:L 

PRINT NEXT:RETURN 

***************************** 
* 
a 10eme et DERNIER TABLEAU. * 

ft**************************** 



670 FOR 1=1 TO 2:L0CATELA(I),LAZ(I):C0L0 
RH,0:PRINTLA«:NEXT:FOR 1 = 1 TO 3:L0CATEE 
C(I>,ECL(I),8:COLOR3,0:PRINTECL*:NEXT 



675 ' 

680 IF G=l THEN H=3: PSETOi. Y)H$(H>, 7, E 

LSE H=6:PSET<X,Y>H*(H>,7,0 

685 IF CX=S AND Y=S>AND DIA=3 THEN PLAY" 

05T5L2A5DOD0RERED0DOREREO3D0DOREREDOD0RE 

REL2402RELA":G0T0 20888 

696 LOCATE6,0:COLOR8. 15= PRINT"FUEL"; :C0L 

0R15,8=PRINTE:E=E-4: IFE<6 THEN 39566 EL 

SEL0CHTE12,8:C0L0R6,e:PRINTSCS+": ":L0CAT 

E25,6:PRINTVI*+": " : LOCATE 1 3. 6, 6:PRINTSC: 

LOCATE30.6.0:PRINTV$(VI) 

695 IF HE=0 AND X<17 THEN GOSUB 338: GOTO 

700 ELSE GOTO700 
700 IF RND.5 THEN GOSUB 736 
705 IF RND<.4 THEN GOSUB 755 
710 AZ=STICK<0) 

715 ON AZ GOSUB370,370.395.395,426,426,4 
45,445 

728 PSET(X.Y)H$(H>,7,8: IF STRIG(8) THEN 
GOSUB 470 
725 GOTO 680 

727 ' ********************************** 

* * 

728 '*ECLAIRS ET LASERS lSe-me TABLEAU.* 

* * 

729 ' ********************************** 
'ECLAIRS 

730 EC=INT(RND*3)+1 

735 LOCATEEC(EC),ECL(EC),0:COLOR3.0:PRIN 

TECLJ:PLAY"05L5T3A5D0D0RESI" 

746 FOR I = EC(EC) TO EC(EC)*-18:IF (X=I AN 

D Y=ECL(EC>) THEN 39500 ELSE NEXT 

745 L0CATEEC(EC),ECL(EC>,6: PRINT" 

": RETURN 
758 ' LAZERS 
755 LA=INT(RND*2)+1 
760 LOCATELA (LA ),LAZ(LA> + 1,0: COLOR 1 1,0: P 



RINTLAZ*: PLAY"05L5T3A5D0D0RESI " 

765 FOR I=LAZ(LA)+1 TO LAZCLAJ+4: IF <X=L 

A(LA) AND Y=I) THEN 39500 ELSE NEXT 

770 FOR I=LAZ(LA)+1 TO LAZ(LA)+4: LOCATEL 

A(LA).I,0:PRINT NEXT:RETURN 

19997 -' ******************************** 

* * 

19998 '* SORTIE DU LABYRINTHE.. * 

* * 

19999 -' ******************************** 

26666 CONSOLES, 24,0, Si CLS: BOX (8, 6) -(39, 3 

)Sf.4,8:LINE(37,3)-(39.3)" " 

26605 BOXF(0,22)-(39,23)CHR*< 127), 2: FOR 

1=1 TO 200:C=INT(RND*319):L=INT' RND*130) 

+40:PSET(C,L), INT(RND*16> : NEXT 

20010 LOCATE0, 1 9,0: COLOR 12,6: PRINTN*(1): 

LOCATE6,26,0:PRINTM$(2):LOCATE0.21.8:PRI 

NTM*(3):H=3 

20020 COLOR7,0:FOR 1=2 TO 38: LOCATEI-1 , 2 

,0:PRINT" "H*(H):IF H=5 THEN H=3 ELSE H= 

H+l 

20022 PLAY"01T8L4D0RE":NEXT 

20025 FOR 1=2 TO 5: L0CATE3S, 1-1, 0: PRINT" 

":L0CATE38, I, 0: PRINTH$(H) : IF H=5 THEN H 
=3ELSE H=H+1 

28827 PLAY"01T8L4D0RE":NEXT 
28636 H=8:F0R 1=33 TO 4STEP-1 : LOCATEI, 5, 

0:PRINTH*(H.) IF H = 2 THEN H = ELSE H = H 

+ 1 

20032 PLAY"01T8L4D0RE":NEXT 

20035 FOR 1=5 T021:L0CATE4, I-1,0:PRINT" 

":L0CATE4, I,8IPRINTH*CH)IIF H=2 THEN H=0 

ELSE H=H+1 
20037 PLAY" 01T8L4D0RE": NEXT 
20846 B=l:F0R 1=1 TO150: L0CATE6. 21 , 0: COL 
OR9,0:PRINTB4U8): IF B=5 THEN B=l ELSE B= 



B+l 

26045 NEXT:h$="DOREFIIFAS0LASI":PLA 

L701"+A* + ,, 02"+At + "03"+A*+"04"+At + "0 

26656 ATTRB8, 1 : L0CATE5, 8. 6: C0L0R15 

NT'VOUS AVEZ GAGNE I II ": LOCATES, 18 

OR0. 15:PRINT"SC0RE : " : : C0L0R15, 0: PR 

+E*2 

20055 

39497 



A2T5 
5"+At 

espRi 

0:COL 
INTSC 



FOR 1=1 TO 20000:NEXT:GOTO400 
• **************************** 

* 
'* FUEL EPUISE. . . 

* 



***♦ 
* 



* 
**** 



39500 
,Y,0: 
0":NE 
OR7.0 
39505 
6:PRI 
0R6, 1 
Y"A6T 
39516 
39980 



IF H<3THEN FOR 1=17 TO 24: LOCATE X 
C0L0R7. 8: PRINTGR$( I ) : PLAY"03T9L9A6D 
XTELSE F0RI=25T032:L0CATE X,Y,8:C0L 
:PRINTGR*(I):PLAY"03T9L9A6D0":NEXT 

FOR 1=8 TO ie:C0L0R15.6:L0C:ATE6,8, 
NT'TUEL : " : PLAY"A6T6L603Mr' : COL 

:LOCATE0,0,6:PRINT"FUEL : ":PLA 
6L6O3FA":NEXT:COLOR6,0 

GOTO 40000 

'******************************** 



39995 
40066 
466B5 



'* MORT DU HERDS * 

* * 

,******************************** 

CLS:A*="V0US AVEZ ECH0UE":H=3 
FOR 1=1 TO LENCAt) 



A SUIVRE... 



31 



TAROT 



EXELVISION EXL 100 



Vous etes las des jeux d'arcades ? Que diriez-vous d'une 
partie de tarot contre un EXL experimente... 

Michel MOUROT 




l£A)£2>4N. n i 






SUITE DU N" 137 



-1)=0:NEXT 



8011 D0»D0-1 

8012 RETURN 

8200 ! REMISE EN ORDRE COULEURS 
8202 FOR Z=73 TO 78 : I=INT (P( Z>/100) : Y=P( Z ) - 100»I : J( PF , I 

8201 WW"PFjGOSUB 7100:G0SUB 73E0 
8210 RETURN 
8500 ! CARTE DEJA JOUEE? 

8502 TEST=0:CAR=ECRAN( (L-11 >/S,Z-1 ) 
850E IF CAROO THEN 8510 
8508 CALL CGL0R( "OWb" >: LOCATE (21,1):PRINT "ERREUR ; RECOMMENCER 

8503 PAUSE 2:TEST=1 

8510 IF TES4=0 THEN ECRANC <L-1 1 ) /S,Z- 1 >■ 
8600 RETURN 

aaoo i toc 

8802 CALL SPEECH ( "L , 0D7C31 B2BAB602FC" > 
8801 RETURN 

3000 ! SUD PREND? 

3001 CALL COLOR ("OWb") iLOCATE (21,1) 

3002 PRINT " DUE FAITEZ VOUS ? 0=PASSE 1-PETITE 

3003 V*=KEY*:GOSUB 8800:IF NUMERIC ( V* ) =0 THEN 3000 

3004 Z=VAL(V*):IF Z« ( Z- 1 ) * < Z- 2 ) * < Z- 4 > «'( Z -6 ) ( >0 THEN 3000 

3005 G(WW)=Z:GOSUB 3100 

3006 RETURN 

3100 ! EFFACT LIGNE 

3101 CALL COLORC'OWt." ) :HH»-RPT»<" ",33) 

3102 LOCATE (21,1):PRINT HH* 

3103 LOCATE (22,1):PRINT HH* 

3104 RETURN 

3200 I REMPL PAO BAS=PRENEUR 
3204 AT=AT-1 :P(AT)=100»I+Y 
3208 RETURN ' 

3300 ! REMPL PAO HAUT"DEF 
3306 A = A*1 :P(A)=100«ltY 
3308 RETURN 
10000 ! NB CARTES TOMBEES D'1 COULEUR 

10002 H = 

10003 IF A=RD-1 THEN 10020 

10004 FOR Z = RD TO A 

10010 TF INT(P(Z)/100)=I THEN H = H+1 

10012 NEXT Z:GOTO 10030 

10020 IF AT-CD+1 THEN 10030 

10024 FOR Z = AT TO CO 

1002E IF INTCP(Z)/100)=I THEN H = H+1 

10038 NEXT 

10030 RETURN 

10200 ! CETTE CARTE EST TOMBEE? 

10202 TEST=0:IF 1=0 AND Y = 22 THEN TEST=1:G0T0 10220 

10203 IF A=RD 1 THEN 10210 

10204 FOR Z = RD TO A 

10206 IF 100»I+Y=P(Z)THEN TEST»1 sGOTO 10220 

10Z08 NEXT 

10210 IF AT=CD+1 THEN 10220 

10214 FOR Z = AT TO CD 

10216 IF 100*I*Y=P(Z)THEN TEST=1:G0T0 10220 

10218 NEXT 

10220 RETURN 

10300 ! CHERCHE LONGUE 

10302 FOR Z=1 TO 4:R1=LEN(C*(WW,Z>) 

10304 IF Z=1 THEN R2=R1 : I=Z : GOTO 10308 

10306 IF R1>R2 THEN R2=R1:I=Z 

10308 NEXT Z 

10310 IF R2=0 THEN 1=0 

10312 RETURN 

15000 I POIGNEE ? 

15002 CALL COLOR("ORY"):V*=C*(WW,0> : R1 =LEN ( V* ) : IF RK20 THEN 15100 

15003 IF WW = THEN R*="NORD" 

15004 IF UW=1 THEN R*="0UEST" 

15005 IF WW = 3 THEN R*="EST" 

15006 IF R1>13 AND RK25 THEN R2=10 : E ( WW > =20 




>=30 
";R*:PAUSE 3:G0SUB 3100 

):PRINT R*:GOT0 1501B 



: IF 1=0 THEN 20200 



EN 20133 ELSE IF 1=5 THEN 20130 

3 THEN LOCATE ( L* 1 ,C >: PRINT CHR*(S+1> 

3 THEN LOCATE ( L+ 2 , C > : PRINT CHR*(S+3> 

RINT CHR*(S> 

: PRINT CHR»(S> 

0117 

ll N£ PfrfX pu/5 MPopTep 



IF R1=26 OR R1=28 THEN R2=13:E(WW 
IF R1 >28 THEN R2=15 :E( UU ) =40 
LOCATE (21,1):PRINT "POIGNEE CHEZ 
FOR Z=1 TO R2:R*=SEG*(V*,2*Z-1 ,2) 
IF VAL(R*>=1 THEN E<4)=1 
IF Z<11 THEN S=Z:LOCATE (21,S«3-2 
S=Z-10:L0CATE ( 22 , S*3- 2 ) : PR INT R» 
NEXT Z 
RETURN 

! PETIT AU BOUT? 
V$=C*(PF,0) :R1=LEN(V») 
IF R1>18 THEN PETB0U=1 
RETURN 

SUB AFCARd ,Y,L,C) 

CALL SPEECH ( "L , 0D7C8BAA6ABE02FC" ) 
IF 1=1 THEN HH»="1RW" 
IF 1=2 THEN HH*="1BW" 
IF 1 = 3 THEN HH*="1RW" 
IF 1=4 THEN HH*="1BW" 
IF 1=5 THEN HH*="1MW" 
S=10*I:CALL COLOR (HH* ): IF Y>10 TH 
IF Y=1 OR Y=3 OR Y=5 OR Y=7 OR Y= 
IF Y=1 OR Y=3 OR Y=5 OR Y = 7 OR Y= 
IF Y=2 OR Y=3 THEN LOCATE (L,C):P 
IF Y=2 OR Y=3 THEN LOCATE (Lt3,C> 
IF Y>3 AND Y<11 THEN 20113 ELSE 
LOCATE (L,C- 1 ) :PRINT CHR*(S) 
LOCATE (L,Ct1 > iPRINT CHR*(S) 
LOCATE (L*3,C+1> :PRINT CHR*(S) 
LOCATE (L+3,C-1 ) :PRINT CHR*(S) 
IF Y=6 OR Y=7 THEN 20118 ELSE 20 
LOCATE (L+1 ,C-1> :PRINT CHR*(S+1> 
LOCATE (L+1 ,Ct1 ) :PRINT CHR*(S+1> 
LOCATE (L+2,C+1 ) :PRINT CHR*(S+3> 
LOCATE (L+2,C-1) :PRINT CHR*(S+3> 
IF Y>7 AND Y(11 THEN 20123 ELSE 
LOCATE (L + 1 ,C- 1) :PRINT CHR* ( S > 
LOCATE (L + 1 ,C + 1 ) :PRINT CHRS(S) 
LOCATE <L+2,C+1> :PRINT CHR*(S> 
LOCATE (L+2,C-1 ) :PRINT CHR*(S> 
IF Y< >10 THEN 20132 
LOCATE (L,C):PRINT CHR*(S*1> 
LOCATE (L+1 ,C> :PRINT CHR*(S+3> 
LOCATE (L+2,C> :PRINT CHR*(S+1> 
LOCATE (L+3,C> :PRINT CHR*(S+3> 
GOTO 20250 

IF r=11 THEN V*="V":D1=30 
IF Y=12 THEN V*="C":D1=100 
IF Y=13 THEN V*="D" : 01 =1 1 
IF Y=14 THEN V*="R" : 01 =1 20 
LOCATE <L,C+1 ) :PRINT CHR*(S> 
LOCATE (L+3,C-1 ) iPRINT CHR*(S> 

CALL COLORC'IBU" ) :LOCATE ( L , C- 1 ): PRINT V*;CHR*(D1> 
LOCATE (L + 1 ,C-1 ) :PRINT CHRt ( 01 + 1 ) ; CHR* ( 01 + 2 ) ; CHR* ( 01 + 3 ) 
LOCATE (L+2,C-1 ) :PRINT CHR* ( D1 + 4 ) j CHR* ( 01 + 5 > ; CHR* ( D1 + 6 ) 
LOCATE (L+3,C> iPRINT CHR* ( 01 t 7 ) | V* 
GOTO 20250 
! DESSIN EXCUSE 

LOCATE (L,C-1 ) :PRINT CHR* ( 42 ) ; CHR* ( 50 ) ; CHR* ( 51 ) 
LOCATE (L+1 ,C-1 ) :PRINT CHR* ( 52 ) j CHR* ( 53 ) ; CHR* ( 54 ) 
LOCATE (L+2,C-1 ) :PRINT CHR* ( 55 ) : CHR* ( 56 ) 
LOCATE (L+3,C-1> :PRINT CHR*(57) ; " ";CHR*<42> 
GOTO 20250 
! DESSIN ATOUT 

CALL COLOR( "OBU" ) :LOCATE ( L , C- 1 >: PRINT STR*(Y) 
IF Y)3 THEN LOCATE (L+3,C> ELSE LOCATE (L+3,C+1> 
PRINT STR*(Y) 

CALL COL0R( "1BW") :LOCATE ( L+ 1 ,C- 1 >: PRINT CHR* ( 1 ) ;CHR* (2) ;CHR* ( 3 ) 
LOCATE (L+2,C-1 ) :PRINT CHR* ( 4 ) ; CHR* ( 5 ) ; CHR* ( 6 ) 
SUBEND 
SUB EFC<L,C) 

CALL COLOR( "OBW" ) :FOR Z = L+1 TO L+4:L0CATE (Z ,C- 1 ): PRINT " " : NEXT Z 
SUBEND 
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Suite de la page 9 

1575 .MOVER »24,-2:DRAWR 22 , , 2 : MOV 
ER ■■ 2S,2:DRAWR 2 , , 1 : MOVER -S , 2 : OR 
AUR 2, 0,3: MOVER -2,-2:DRAWR 2,0,3: 
MOVER -2, - 2:DRAWR 2, 0,3: MOVER 34,2 
iDRAWR 2,0,1: MOVER 2,2:DRAWR 2,0,3 
:MOVER -2,-2:DRAWR 2 , , 3 : MOVER ' -2 , 
~2:0RAWR 2, 0,3: RETURN 
1573 ' 

1580 ' 5 em VAISSEAU 

1581 ' 

1584 DRAWR 2,O,4:M0VER -4,-2:DRAWR 
E, 0,4: MOVER - 1 , -2 : DRAWR 1 4 , , 4 : M 
OVER -14,-2:DRAWR 2,0,4:M0VEFf 2,0: 
DRAWR 2, 0,3: MOVER 2,0: DRAWR 2,0,4: 
MOVER 2,0: DRAWR 2,0, 3: MOVER 2,0: OR 
AWR 0,0, 4: MOVER - 1 4 , -2 : DRAWR 10,0, 
4 

1586 MOVER - 1 2 , -2 : DRAWR 0,0, 'I: MOVE 
R -3, 2:DRAWR 0,0,1 iMOVER -3,-2:DR 
AWR 2 ,0,3: MOVER 18, 4: DRAWR , , 1 : M 
OVER 4,- 2: DRAWR 0,0,1: MOVER 2 , - 2 : D 
RAWR 0,0,3:RETURN 

1587 ' 

1588 ' E cm VAISSEAU 
1583 ' 

1600 DRAWR 16,0, El MOVER 16,~2:DRA 
WR 2,0,E:M0VER 2 , : DRAWR 2, 0,4: MOV 
ER 2,0: DRAWR 2, 0,6: MOVER 2,0: DRAWR 

2, 0,4: MOVER 2,0: DRAWR 2, 0,6s MOWER 

~1E,-2:0RAWR 16,0,E:M0VER -16,-2: 
DRAWR 0,-8, 8: MOVER 16, 8 .-DRAWR 0,-8 
,8 
1610 MOVER -14,0lDRAWR 0,0,1:M0VER 

10,0: DRAWR 0,0,1: MOVER -8, 8: DRAWR 

6 ,0,3: RETURN 
1615 ' 
1617 ' 7 em VAISSEAU 



16 

16 

0, 

R 

:D 

jO 

;0 

16 
;0 
,3 
:D 
/O 
UR 
16 
16 
16 
16 
6 
ER 
RA 
:M 
;8 
16 

6 
ER 
RA 
:P 
16 
16 
16 
1E 

ER 
RA 

:M 

-4 
16 
R 
AW 

RE 



18 ' 

20 DRAWR 0,0, 3: MOVER 0,-2: DRAWR 
0,3:MOVER -2,-2:DRAWR 6,0,3:MOVE 
-10, -2: DRAWR 14, 0,3: MOVER -22,-2 
RAWR 30, 0,3: MOVER -34 , -2 : DRAWR 4 
,3: MOVER 2,0: DRAWR 2,0,1: MOVER 2 
: DRAWR 2 , , 3 : MOVER 2,0: DRAWR 2,0 



D 

M 
RA 
?- 
N 
26 

28 

40 



UR 

OV 
:D 
4E 

,0, 

-£ 
WR 
ET 
46 
47 
48 
60 
(0 

Ml 

OV 

DR 

s 3 

65 

-6 

R 

TU 



MOVER 2,0: DRAWR 2, 0,3: MOVER 2 
RAWR 2,0,1: MOVER 2,0: DRAWR 2,0 
OVER 2,0: DRAWR 2, 0,1: MOVER 2,0 
WR 4,0,3:M0VER 34,-2:DRAWR 30 
:MOVER -32, 2:DRAWR 32,0,3:RET 



' 8 em VAISSEAU 

DRAWR 2,0,8:M0VER -4,-2:DRAWR 
,8:M0VER -E, -2: DRAWR 6, 0,8: MOV 
4,-2:DRAWR 2,0,8:M0VER -2,-2:D 
0,8: MOVER -2, -2: DRAWR 2,0,8 
ER -2,-2:DRAWR 2, 0,8: MOVER -14 
RAWR 6,0,2 

MOVER -2, -2: DRAWR 4, 0,2: MOVER 

2: DRAWR 2, 0,2: MOVER 10, 4: DRAWR 

MOVER -8,-2:DRAWR 4,0,2:M0V 

2: DRAWR 2, 0,2: MOVER - 1 8 ,, 2 : D 

E, 3: MOVER 30, -6: DRAWR 0,6,3 





URN 



' 3 em VAISSEAU 

DRAWR 2,0,1:M0VER -2,-2:DRAWR 

1: MOVER -4,-2:DRAWR 6, 0,3: MOV 

6,-2:DRAWR 6,0,3:M0VER -6,-2:D 

6,-E,3:MOVER 2,b:DRAWR 0,-6,2 

ER 4, 6: DRAWR 0,-6, 3: MOVER -6,- 

AWR 6, 0,3: MOVER -2, -2: DRAWR 0, 

MOVER -12, 'I 2: DRAWR 4, 0,8: MOVE 
,2: DRAWR , - 4 , 8 : MOVER 20,6lOR 

4, 0,8: MOVER 2, -2: DRAWR 0,-4,8: 
RN 



16EE ' 

1EE7 ' 10 em VAISSEAU 

1 668 ' 

1680 DRAWR 2, 0,8: MOVER -4, -2: DRAWR 

6, 0,8: MOVER -6, -2: DRAWR 0,0, 8: MOV 
ER 2,0: DRAWR 2, 0,3: MOVER 2,0: DRAWR 

2,0,8:M0VER -8,-2:DRAWR 6,0,8:MOV 
ER -4, -2: DRAWR 2, 0,8: MOVER -10,8:0 
RAWR 2,0,1: MOVER -4 , 2 : DRAWR 0,0,1: 
MOVER 4,-8:DRAWR 0,0,1 : MOVER -4,-2 
: DRAWR 0,0,1 
1E85 MOVER 18, 8: DRAWR 0,0,1: MOVER 



4, 2: DRAWR 0,0,1: MOVER -4, 



-8: DRAWR 



0,0,1: MOVER 4, 

N 

1686 ' 

1637 

1830 

1700 

WR 2 



■2:DRAWR 0,0,1 :RETUR 



• I 



?m VAISSEAU 



20,~2:DRA 
0,0,4:M0V 
2,0:DRAWR 



DRAWR IE, 0,8: MOVER 
0,8: MOVER 2,0: DRAWR 
ER 4,0: DRAWR 2, 0,8: MOVER 
2, 0,4: MOVER 2,0: DRAWR 2, 0,8: MOVER 
2,0: DRAWR 2, 0,4: MOVER 2,0: DRAWR 2 
,0,8: MOVER 28, -2: DRAWR 30, 0,8: RET 
URN 
1710 ' 

1715 ' 12 em VAISSEAU 
1 7 1 6 ' 

1720 DRAWR 4, 0,3: MOVER -6, -2: DRAWR 
10, 0,3: MOVER -12, -2: DRAWR 14,0,3: 
MOVER -1E,-2:DRAWR 20,0,3:M0VER -2 
0,-2: DRAWR 0,0, 3: MOVER 2,0: DRAWR 
,0,4: MOVER 4,0: DRAWR 4, 0,3: MOVER 6 
,0 -.DRAWR 0,0,4:M0VER 2,0: DRAWR 0,0 
, 3: MOVER -18, -2: DRAWR 20,0,3 
1725 MOVER -20,-2:DRAWR 20,0,3:M0V 
ER -14, -2: DRAWR 4,0,1: MOVER -6,-2: 
DRAWR 10,0,1: MOVER •• 6 , -2 : DRAWR 4,0 
,1 :RETURN 
1728 ' 
1730 
1735 ' 
1740 DRAWR 



6,0 

OVER 
, -2 : 
0,0 
ER 

RAWR 
1745 
-*,- 
R 8, 
TURN 
1750 
1751 
1752 
1760 
WR 1 
8: MO 
18,2 
WR 2 
8:M0 
2,-2 
1775 
N 

1776 
1777 
1778 
1780 
R 14 
:MOV 
20,8 
WR 1 
1 :MC) 
, - 2 : 
1785 
ER 2 
1800 
2000 
2010 
2015 



13 em VAISSEAU 



,0,4:M0VER -4, 



4: MOVER -10, -2: DRAWR 16,0,6:M 

-28,-2:DRAWR 38,0,6:M0VER -26 
DRAWR 16,0,E:M0VER -26, 6: DRAWR 

4:M0VER -4,-2:DRAWR B,0,4:M0V 
8,-4:DRAWR 8 , , 4 : MOVER -4,-2:D 

0,0,4 

MOVER 32, 8: DRAWR 0,0, 4: MOVER 
2:DRAWR 8,0,4:M0VER -8,-4:DRAW 
0,4: MOVER -4, -2: DRAWR 0,0, 4: RE 



' 14 em VAISSEAU 

DRAWR 18, 0,8: MOVER -18,-2:DRA 
,0,1: MOVER -18, -2: DRAWR 18,0, 
VER -10, -2: DRAWR 2, 0,2: MOVER - 
: DRAWR 34 , , 8 : MOVER -30,-2:DRA 
6, 0,8: MOVER -22, -2: DRAWR 18,0, 
VER -10, -2: DRAWR 2, 0,2: MOVER - 
: DRAWR 2,0,2 
MOVER -6,6:DRAWR 10,0,3:RETUR 



' 15 em VAISSEAU 

DRAWR -12,0, 1 : MOVER 0,-2: DRAW 
,0,1:M0VER -22,-2:DRAWR 30,0,3 
ER -34,-2:DRAWR 38,0,3:M0VER - 
: DRAWR 4 , , 1 : MOVER - 8 ,-10: DRA 
0,0,1: MOVER - 1 , - 2 : DRAWR 10,0, 
VER - 8 , - 2 : DRAWR 6,0,1: MOVER - 6 
DRAWR 6,0,1 

MOVER -4, 12: DRAWR 0,-1 0,6: MOV 
,10: DRAWR 0,-10,6: RETURN 

RETURN 

' DESSIN VAISSEAU 
AMIRAL 
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passionne d'electronique, Francis LYONNE nous propose logiquement une interessante etude sur les circuits logiques... 
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ETUDE DES CIRCUITS LOGIQUES AUSTRAD 



SUITE DU N° 137 

6620 PRINT85,n6*: IF <A)xB THEN PRI 
NT86,"A>B":L0CATE 12,5:PEN 1:PRINT 

s2*:L0CATE 12,8:PEN 2:PRINT s2*:L 
OCATE 12,11 :PRINT s2t 
GG30 IF xA=xB THEN PRINT86 , "A=B" :L 
OCATE 12, 5: FEN 2: PRINT s2«: LOCATE 
12,8:PEN 1:PRINT s2*:L0CATE 12,11: 
PEN 2.-FRINT s2* 

6640 IF xA<xB THEN PRINTttG , "A<B" :L 
OCATE 12,5:PEN 2:PRINT s2*:L0CATE 
12,8:PRINT s2*:LQCATE 12,11:PEN 1: 
PRINT s2* 

6650 L0CATEB7,1 , 8: PAPER87 , 1 :PEN87, 
3:PRINT87,"Autres codes (0 ou N) ? 
":G0SU6 13060: IF t*="o" OR t*="0" 
THEN PAPER87 , : CLS87 : CLS8G : CLS85 : C 
LSB4:G0T0 G580 
6660 GOSUB 13000: GOTO 7000 
6700 L0CATE87,1 , 8 :PRINTB7 , "Code in 
eorrecte":FOR t=1 TO 500: NEXT t:CL 
Sa7:G0T0 6650 

7000 '******** AFFICHAGE ******** 
7010 MODE 1:INK 1,24: INK 2, 13: INK 
3,10 

7020 PEN 1:PRINT" OQeodeur 

BCD 7 segments":PRINT:PEN 2-.PRINT" 
Table de vQritQ" tSTRING* < 12,32) t" 
Circuit":PRINT:PRINT" entrQes 

sorties " :PRINT , 

7030 PRINT" DCBAaBcdaf 

9":F'RINT:PRINT"A "tCHR*C|5> ;CHR*( 

3>t"0 0000111111 0"tCHR*( 
15>tCHR*(2> : PRINT" F " tCHR*( 15 > tCHR 
*(3>t"1 10 1 10 0"tCHR 
*<15> ;CHR*(2> :PRINT"F "t CHR* (15) ;C 
HR*(3)t"2 0010110110 1"tC 
HR»(15) ;CHR*(2> 
704.0 PRINT"I "tCHR*(15> ;CHR*(3)t"3 

O 1 1 1 1 1 1 4 1"tCHR*(15)tC 
HR*(2> :PRINT"C "t(tHR*(15> ;CHR*(3) t 
"4' 10001 1001 1"tCHR*(15) 
;CHR*(2> :FRINT"H "tCHR*(15> ;CHR*(3 
>t"5 0101101101 1"tCHR*(1 
5>:CHR*(2> 
7050 PRINT"A "tCHR*( 15> ;CHR*(3)t"6 

0110001111 1"+CHR*<15> ;C 
HR*(2) : PRINT "G "tCHR*(15> ;CHR*(3> t 
"7 0111111000 1"tCHR*(15> 
;CHR*(2> :PRINT"E "tCHR*(15> ;CHR*(3 
>t"8 1000111111 1":PRINT" 

31001 1 1 1001 1" 
7060 PLOT 55, 332, 2: DRAW 55,106:PL0 
T 182,332:DRAW 182,106:PL0T 408,37 
0:DRAW 408, 106: LOCATE 1,21:PRINT"E 
xeaple de dOcodeur : SN7447" 
7062 PEN 2: LOCATE 30,6:FRINT s3*t 
"A _a":LOCATE 37 ,7 : PRINT"_b" :LOCA 
TE 30,8:PRINT s3*t"B _c":LOCATE 3 
7,9:PRINT"_d":L0CATE 30,10:PRINT s 
3*t"C _e":LOCATE 37 , 1 1 :PRINT"_f " : 
LOCATE 30,12:PRINT s3*t"D _g" 
7064 PLOT 463,305,2:DRAW 463,158:P 
LOT 463,176:DRAW 551,176:DRAW 551, 
134:PL0T 529 ,335:DRAW 576,335:0RAW 

576, 134: DRAW 523, 134: DRAW 523,335 
: GOSUB 11020 

7066 PEN 3:L0CATE 35, 15 :PRINT"a" :L 
OCATE 32,17:PRINT"f ":LOCATE 38,17: 
PRINT"b":UOCATE 34, 18: PRINT'g" :LOC 
ATE 31 ,20:PRINT"e":L0CATE 37,20:PR 
INT"c": LOCATE 33 ,23: PR I NT "d" : LOCAT 
E 38,23:PRINT"0V":PL0T 560,53,2:DR 
AUI 560, 35: DRAW 530,35 
7070 GOSUB 13050: IF t*="o" OR t*=" 
0" THEN PEN 1:L0CATE 28 , 16 :PRINT" t 
5W":L0CATE 3 ,3:PRINT"0" :PLOT 0,0,1 
: GOSUB 11110:G0SUB 11120:G0SUB 111 
30: GOSUB 11140:G0SUB 11150:G0SUB 1 
1160:G0T0 7100 

7080 PAPERB3,0:CLS83:PAPERB3,1 :WIN 
D0W83,1 ,40,25, 25:L0CATE 1,24:PEN 1 
:PRINT"Fin du cours . . . " :PRINTtt3, "C 
hapitres prOcOdents r,M,s,a,f,e ou 

d" : RESTORE 500 
7030 GOSUB 1000:REAO a,b:b=b*6:IF 
a=-1 THEN 7080 ELSE SOUND 1,a,b,5, 
1 : GOTO 7030 

7100 WIND0WB3, 1 ,40 ,24, 25 :aO*="0000 
":a1*="0001":a2*="0010" :a3*="0011" 
:a4*="0100":a5*="0101":a6*="0110": 
a7*="01 11" :a8*="1000" : a9* = " 1001 " :a 
10*="1111" 

7110 PAPER83,0:CLSB3:PAPERB3,1 :PRI 
NT83,"Code d'antrQe (OCBA) puis<EN 
TER> " : INF"UT83 , "Fin exereiee :code 
1111 ";co* 

7120 IF (co*=aO* OR co»=aU OR cot 
= a2* OR eo*=a3* OR cot^ait OR co*= 
a5* OR co*=a6* OR co$=a7» OR co*=a 
8* OR eo*=a9* OR eo*=a10») THEN 71 
20 ELSE PAFEPB3,0:CLS83:PAPEr<83,1: 
PRINT!13,"Code incon-ecta" :FOR x=1 



TO 2000:NEXT x:GOTO 7110 

7130 IF co»=aO! THEN GOSUB 11020:P 

EN 1 -.LOCATE 3, 3: PRINT"0" :PLOT 0,0, 

1: GOSUB Vi110:GOSUB 11120:G0SUB 11 

130: GOSUB 11140:GCSUB 11 150: GOSUB 

11 160: GOTO 7110 

7140 IF eo*=a1* THEN GOSUB 1l020:P 

EN 1 :LOCATE 3, 1 :PRINT" 1 " :LOCATE 3 

0<6:PRINT s4*:F'L0T 0,0,1:G0SUB 111 

2O:G0SUB 11130:G0T0 7110 

7150 IF co*=a2* THEN GOSUB 11020:P 

EN 1:L0CATE 3 , 1 1 :PRINT"2" :L0CATE 3 

0,8:PRINT s4*:F'L0T 0,0,1:G0SUB 111 

10:GOSUB 11120:G0SUB 11 170: GOSUB 1 

1150:G0SUB 11140:G0T0 7110 

7160 IF sro*==a3* THEN GOSUB 11020:P 

EN 1:L0CATE 3 , 12 :PRINT"3" :LOCATE 3 

0,6:PRINT s4* :PLOT ,0 , 1 : GOSUB 111 

10:G0SUB 11120:G0SUB 11130:G0SUB 1 

1140:G0SUB 11170:GOTO 7110 

7170 IF co*=a4* THEN GOSUB 11020:P 

EN 1:L0CATE 3 , 1 3 :PRINT"4" :LOCATE 3 

0,10:PRINT s4*:PL0T 0,0,1:G0SUB 11 

160:G0SUB 11170:G0SUB 11120:G0SUB 

11130:G0T0 7110 

7180 IF co*=a5* THEN GOSUB 11020:P 

EN 1:L0CATE 3 , 14 :PRINT"5" : LOCATE 3 

0,6:PRINT s4t:L0CATE 30,10:PRINT s 

4*: PLOT 0,0,1: GOSUB 11 110: GOSUB 11 

160: GOSUB 11 170: GOSUB 11 130: GOSUB 

11140:GOTO 7110 

7130 IF co»=a6« THEN GOSUB 11020:P 

EN 1:L0CATE 3 , 1 5 : PRINT"6" :LOCATE 3 

0,8:PRINT s4*:L0CATE 30,10:PRINT s 

4*: PLOT 0,0,1: GOSUB 11 160: GOSUB 11 

150: GOSUB 11140:G0SUB 11130:G0SU6 

11170:G0T0 7110 

7200 IF co*=a7* THEN GOSUB 11020:P 

EN 1:L0CATE 3 , 16: PRINT"7" :LOCATE 3 

0,6:PRINT s4*:L0CATE 30,8:PRINT s4 

*:LOCATE 30,10:PRINT s4*:PL0T 0,0, 

1: GOSUB 11110:GOSUB 11120:G0SUB 11 

130:G0T0 7110 

7210 IF co*=a8« THEN GOSUB 11020:P 

EN 1:L0CATE 3 , 1 7 :PRINT"8" -.LOCATE 3 

0,12:PRINT s4»:PL0T 0,0,1:GOSUB 11 

110:G0SUB 11120:G0SUB 111302GOSUB 

11140:GOSUB 11150:G0SUB 11160:G0SU 

B 11170:GOTO 7110 

7220 IF co»=a3» THEN GOSUB 11020:P 

EN 1:L0CATE 3 , 18 : PRINT"3" :LOCATE 3 

0,6:PRINT s4t:L0CATE 30,12:PRINT s 

4*: PLOT 0,0,1: GOSUB 11 170: GOSUB 11 

160:G0SUB 11110:G0SUB 11120:G0SUB 

11130:G0T0 7110 

7230 IF co»=a10» THEN 7080 

10000 '** REDEFINITION, SYMBOLES • 

10010 SYMBOL AFTER £5C 

10020 SYMBOL SD2, SO , 80 , 80 , S8, S8, S8 

,88,8F8 

10030 SYMBOL 803,880,880,880,880,8 

80,880,880,8FF 

10040 SYMBOL 804,880,880,880,880,8 

80,880,880,80 

10050 SYMBOL 805,88,88,88,88,80,80 

,80,80 

10060 SYMBOL 8D6, 80, 87 , 818 , 830, 870 

,848,885, 882 

10070 SYMBOL 8D7 , 80 , 80 , 8C0, 860, 870 

,830,88, 8F 

10080 SYMBOL 808,885,848,870,830,8 

18,87,80, 80 

10090 SYMBOL 8D3 , 88, 830 , 870 , 860 , 8C 

0,80,80,80 

10100 SYMBOL 80A,80,80, 80, SO, 83, SC 

,830, SCO 

10110 SYMBOL 8DB,S3,8C,83O,SC0,80, 

80,80,80 

10120 SYMBOL 8DC , 83 , 8D, 831 , 8C1 , 81 , 

in ,&1 ,S1 

10130 SYMBOL 8DD , 8FF , 880, 880 , 880, 8 
80,S80,8FF,80 

10140 SYMBOL SDE , 8FF , 81 , 81 , 81 , 81 , 8 
1 ,8FF,S0 

10150 SYMBOL 8DF , SEO, SB8 , 88E , 883, 8 
80, 880,880, 880 

10160 SYMBOL 8E0 , 80 , SO , SO , 880 , SEO, 
S38,SF,S7 

10170 SYMBOL 8E1 , 880, 880 . 880 , 883, S 
8E, 868, SEO, iO 

10180 SYMBOL 8E2, SF,838, SEO, 880, 80 
, 80, tO , 80 

"0130 SYMBOL SE3 , 89, 81 2 . 824 , 888 , SE 
0,838,8F;S7 

10200 SYMBOL 8E4 , SFF , S3C , 8B6 , S9C , 8 
B6 , SEE , »E6 , >.B3 

10210 SYMBOL 8E5 , iFF , 8 I , 81 , 81 , 81 , 8 
1 ,81 ,81 

10:20 SYMBOL 8E6 , 880 , 8SO , 8110 , 880, S 
80, 880,880,880 
10230 SYMBOL SE7 , 81 , 81 , 81 , 81 , 81 , 11 

; '. 1 , S 1 

10240 SYMBOL 8E8 , SO , 80, 80 , SFF , 80 , 8 

0,80,80 

10?"iO SYMBOL 8E9, 81 ,81 , 81 ,81 ,81 ,81 



,81 ,8FF 

10260 SYMBOL SEA , 80, 80 , SCO, 8FF, SCO 

,80,80,80 

10270 SYMBOL 8EB , 8FF , 8B0, 838 , S8C , 8 

86,S8D,83A,8B4 

10280 SYMBOL 8EC , 8FF, 831 , 871 , 8B1 , 8 

31 , 831 ,831 ,8F0 

10290 SYMBOL SED , SFF , S80, 880 , 880 , 8 

BE,S80,8BE,S80 

10300 SYMBOL 8EE , SFF , 880, 880 , SBO , 8 

80, 880,880,880 

10310 SYMBOL SEF , SFF, 880 , 83F , 8A0 , 8 

AO, SAO, SAO, SAO 

10320 SYMBOL SFO , SFF , 81 , 8F3 , 85 , 85 , 

85,85,85 

10330 SYMBOL 8F1 , SAO , SAO, SAO , S3F , 8 

AO, SAO, SAO, SAO 

10340 SYMBOL 8F2, 85, 85, 85 , 8F3, S5 , S 

5 f R 5 * & 5 

10350 SYMBOL 8F3, SAO , SAO , SAO , SAO , 8 

3F, SAO, 880, SFF 

10360 SYMBOL 8F4 , 85, 85 , 85 , 85 , SF9 , 8 

1,81, SFF 

10370 SYMBOL SF5, SFF , SAO, 8B8 , 8AC , 8 

A3,8AC,8B8,SA0 

10380 SYMBOL 8F6 , SCO , 830 , 88, 84 , 82 , 

82, 81 ,S1 

10390 SYMBOL 8F7, 81 , 81 , 82 , 82 , 84 , 88 

,830, SCO 

10400 SYMBOL 8F8 , 8FF , 840, 820 , 810, S 

8,84,84,8FE 

10410 SYMBOL 8F9, 82 , 84 , 84 , 88 , 810 , 8 

20, 840, SFF 

10420 SYMBOL 8FA , 82 , 82 , 82 , 82 , 82 , 82 

,82,SFE 

10430 SYMBOL 8FB , SFF , 840, 820 , 890 , 8 

48,S24,834,8F2 

10440 SYMBOL SFC , 832 , $24 , 844 , 848 , 8 

90, 820, 840, SFF 

10450 SYMBOL SFO, 81 2, 81 2, 812 , 812, 8 

12,812,812,8F2 

10460 SYMBOL 85C , S7E , 899 , 899, SFF , 8 

FF,$99,893,87E 

10470 SYMBOL SCF , 860 , 81 , 878 , SC , 87 

C, SCC, 876 

10480 KEY 129,CHR»<8CF) 

10430 SYMBOL 8D0 , 80 , SO , 8.3C , 8&G , XGO 

, S3E , 88,818 

10500 KEY 132,CHR*<SD0> 

10510 SYMBOL JtD1 , &G , SB , X3C , XGG , 87E 

, 8.60, S3C 

10520 KEY 135,CHR*(SD1 ) 

10530 SYMBOL 8FE , 87E , 80 , 83C, 866 , 86 

0,S66,83C,80 

1 0600 s 1 *=CHR* ( 85F ) t CHR» < 8D2 ) * CHR* 

(8D3)tCHR»(S5F)*CHR*<SA)tSTRING*(8 

3,88) »CHR* < 8D5 ) *CHR* < 8D4 ) tCHR* ( 89 ) 

♦ CHR*< SB) 

10610 s2»=CHR*(85F)*CHRt<8D6)tCHRt 

<S07)*CHR*(85F> +CHR*<8A> t STRING* < 8 

3,S8)tCHR»(SD8)*CHR*(8D9> ♦ CHR* (83) 

♦CHR*<8B) 

10620 s3*=CHR*< S5F) tCHR*< SDA) tCHR* 

(8DB)tCHR*<85F) 

10630 s4*=CHR*< S5F) tCHR*< 8DA) tCHR* 

<SDC)*CHR*(85F) 

10640 s5*=CHR*(SE8) tCHR* C SDD ) tCHR* 

(8DE)tCHR*(8E8) 

10650 s6*=CHR*(89)tCHR*(8EF)tCHR*< 

SFO ) +CHR* < 8A ) tSTRING* < $2 , 88 ) tCHR* ( 

8F1 ) +CHR*< 8F2) *CHR*< SA) »STRING*< 82 

, 88)tCHR*(SF3)»CHR*<SF4)tSTRING*< 8 

2,8B)tCHR*(89) 

10660 s7*=CHR*<85F)+CHR*<8BF>+CHR* 

( SEO ) ♦ CHR* <SD3)tCHR*(8A) tSTRING* < 8 

3,88)+CHR*(SE1 ) tCHR*(SE2) ♦CHR*<8D4 

) tCHR*(S9)tCHR*(8B) 

1 0670 s8*=CHR* ( 85F ) tCHR* ( 8DF ) tCHR* 

( 8E3) tCHR*( $03) t CHR* < SA ) tSTRING* < S 

3,88)+CHR*(8E1 ) »CHR*( $E2> -tCHR* ( 8D4 

)*CHR*<S9)tCHR*(SB) 

10680 I 1*=CHR*<85F)tCHR*(8E4)tCHR* 

( 8E5 ) *CHR*< 8A) tSTRING* ( 83 , 88 ) tCHR* 

< 85F ) tCHR* ( 8E6 > t CHR* ( 8E7 ) t CHR* < SE8 

)tCHR*(SA) tSTRING* (83,88 )t CHR* <8D3 

) t CHR* ( 8E3) tSTRING* < 82, 89) tSTRING* 

(82, SB) 

10630 l2*=CHR*(85F)tCHR*(SE4) tCHR* 

( SE5 ) t CHR* ( 5.A ) t STRI NG* ( S3 , $8 ) t CHR* 

( 8SF )+CHR*( SE8) tCHR*( 8E7) t CHR* ( SEA 

! tCHRt( 8A) t STRING* (83,88 ) t CHR* ( 803 

) tCHR*(8E3)tCHR*( S3 > tSTRING* ( 82 , SB 

) 

10700 I3*=CHR*(S5F) tCHR*(8EB) tCHR* 

( SEC ; t CHR* ( 8A ) tSTRING* ($3,88 ) t CHR* 

( SE." > tCHR* ( 8E6) tCHR* ( 8E7) tCHR* ( 8E8 

) t CHR* (iA) t STRING* (S3, 88) tCHRK SD3 

) tCHR*(8E3) tCHR*( 89 ) tSTRING* ( 82, SB 

) 

10710 I4$-=CHR*( SSF)tCHR*(SEB)tCHR* 

( SFC)tCHP*(SA) tSTRIN(.-*(83. 88)tCHR* 

( X5F) .CHR*(SES) ,CHR»( SE7) tCHR*< $FA 

)tCHR*( SA)+STftIHG*<S3,88)tCHR* ( =.03 

) tCHR*< l\:a> (ChRK S3) tSTRING* (82, SB 



10720 I5*=CHR*( 85F> tChR*( SED) tCHR* 
( SEC ) t CHR* ( SA ) t STR I NG* ( 83 , 88 ) t CHR* 
(SSF)tCHR*(SE6) tCHR*(SE7) tCHR*(SE8 
) +CHR*'. SA) tSTRING*' S3, 88) t CHR* ( $03 
> tCHR*(SE9;+CHR*(S9) t STRING*,* 82, SB 
) 

10730 IS*=CHR*(83) tCHR* ( SF 3) tC HR* ( 
8E5) tCHR*(SA)tSTRING*($3,$8)tCHR*( 
SE8) tCHR*(SE6)tCHR*(SE7) t CHR* (SEA) 
tCHR*<8A) tSTRING*(S3,S8)tCHR*($D3) 
*CHR* ( SE9) tCHR* ( $9 ) tSTRING*( 82 , SB ) 

1 0740 I a1 *=CHR* ( $5F ) tCHR* ( SEE ) tCHR 

* ( 8F6) t CHR* ( $A) tSTRING* ( S3 , 88 ) tCHR 

* ( 85F ) tCHR* ( 8E6 ) tCHR* ( 8E7 ) t CHR* ( ?.E 

E) tCHR*(SA) tSTRING* (83,88 )t CHR* (SD 

3 ) tCHR* ( SF7 ) tCHR* ( $9 ) tSTRING* (82,8 

B) 

10750 I a2*=CHR* ( S5F ) t CHR* ( $EE ) t CHR 

*(SF6) t CHR* (SA) tSTRING* ($3,88) t CHR 

*(85F) tCHR*(SEG) t CHR* ( SE7 ) tCHR* ( SE 

A ) tCHR* ( SA ) tSTRING* ( S3 , 88 ) t CHR* ( SD 

3) tCHR*lf8F7)tCHR*(89) t STRING* ( 82 , 8 

B) 

10760 la3*=CHR*(85F) tCHR*(8F8) tCHR 

*(8F6) t CHR* (8A) tSTRING* I $3,88) t CHR 

*(S5F) tCHR*(8FA) tCHR*( $E7) tCHR*($E 

8 ) tCHR* ( $A) tSTRING* ( S3 , 88 ) t CHR* ( 8F 

3) tCHR*(SF7)tCHR*(S3) t STRING* ( $2 , 8 

B) 

10770 I a4*=CHR*( 85F) tCHR*( 8F8) tCHR 

*( 8F6) tCHR*(SA) t STR INC* ( 83,88) t CHR 

*( 85F) tCHRS(SFA) tCHR*( 8E7) tCHR*( SE 

A) tCHRK SA) tSTRING* ( S3, 88) tCHR*( SF 

9 > t CHR* ( SF7) t CHR* ( 89) tSTRING* ( $2, S 

B) 

1 0780 I a5*=CHR* ( 85F ) t CHR* ( 8FB ) tCHR 

*( 8F6 ) tCHR* ( 8A) tSTRING* ( 83 , 88 ) tCHR 

* ( 85F ) t CHR* ( 8FD ) t CHR* ( 8E7 ) t CHR* ( SE 

8) tCHR*( SA) tSTRING*( S3, 88) tCHR*( SF 

C)tCHR*(8F7)tCHR*(89) tSTRING*( 82, 8 

B) 

10790 la&*=CHR*( 85F) tCHR* ( 8DF) tCHR 

*( SEO) t CHR* ( S5F) tCHR*( SA) tSTRING* ( 

S3, '88) tCHR*( 8E1 ) tCHR* ( 8E2 ) tCHR*< 89 

) tSTRING*( 82, 8B) 

10800 c1*=STRING*(S5, 15F) ts1*tSTRI 

NG*(85,85F> 

10810 c-2*=CHR*( SE6) tCHR*( 8A) tCHR*( 

88) tCHR*< 8E6) tCHRt(SA) t CHR* (88) tCH 

R*(8[J3> tSTRING*(8C, 85F ) tCHR*(SE3) t 

CHR*( SB) tCHRK 88) tCHR*( 8E7) tCHR*( S 

B)tCHR*(S8)tCHR*(SE7) 

10820 c3*=CHR*(SE6) tCHR* ( 8A> tCHR*( 

88)tCHR*(8E6) tCHR*(SA) tCHR*(88)tCH 

R* ( 8D3 ) t STR ING* ( 86 , 85F ) t CHR* ( 8E6 ) t 

CHR* ( SB > tCHR* ( 88 ) tCHR* ( 8EG ) tCHR* ( 8 

B) tCHR*($8) tCHR*(SE6) 

10830 n2*="Action inter" 

10840 n3*="Repos inter" :n4*=" (O ou 

N) ?" 
10850 p*="Page suivantc , touche esp 
ace;ou rrasafed" 
10860 RETURN 

1 0890 '*«*«***#*#**#*#***#*«**«#* 
11020 FEN 2:L0CATE 30,6:PRINT s3t: 
LOCATE 30,8:PRINT s3*:L0CATE 30,10 
IPRINT s3*:L0CATE 30,12:PRINT s3* 
11030 PLOT 0,0, 3: GOSUB 11110: GOSUB 

11120:G0SUB 11130:G0SUB 11140:G0S 
UB 11150:G0SUB 11 160: GOSUB 11170 
11040 af=0 

11050 FOR ya=9 TO 18: PEN 3: LOCATE 
2,ya:FRINT af :af =af t 1 :NEXT ya:PLOT 

55, 332, 2. -DRAW 55 , 106: RETURN 
11100 '******** afficheur ******** 
11110 PLOT 526, 158: DRAW 576,158:FL 
CT 526, 156: DRAW 574 , 156: RETURN 
11120 PLOT 582,158:0RAW 572,110:PL 
OT 580, 156: DRAW 570, 108: RETURN 
11130 PLOT 570, 104: DRAW 560, 56: FLO 
T 568, 102: DRAW 558 ,54 : RE TURN 
11140 PLOT 552, 54: DRAW 502, 54: PLOT 

552, 56: DRAW 504 , 56 : RE TURN 
11150 PLOT 436. 54: DRAW 506, 102: FLO 
T 498, 56: DRAW 508, 104 : RETURN 
11160 PLOT 508,108:DRAW 518,15t:PL 
OT 510,110:DRAW 520 , 158 .-RETURN 
11170 PLOT 514,104:DRAW 564,104:PL 
OT 514, 106: DRAW 564 , 106: RE TURN 
13000 WINDOWa ), 1 ,40, 25, 25: PAPER 83, 
0:CLStt3:PAPER83, 1 :PENB3 , 3 :PRINT83 , 
P* 

13010 GOSUB 1000: IF touer.e* = " " TH 
EN RETURN ELSE 13010 

••3050 WIN00W83, 1 , 37 , 25 . 25 :P«PERB3 , 
: CL.S83 : P APER83 , 1 : PENB3 , 3 : PR I NT 83 , 
"Voulez-vous voos exrrcer ? (O ou 
N>" 

13060 t*=INKEY* 

13070 WHILE t.*<>"o" AND t*<>"0" AN 
D f*')"n" AND t*< >"N":t*=lNKEY3:WE 
ND 
13080 RETURN „ 
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FORMATION A 
L'ASSEMBLEUR PRATIQUE 



LA REVOLUTION CONTINUE ! 

Les micros, ci-apres nommes, ont 
deja herite d'un nombre de cours 
consequents dans les numeros ci- 
dessous decrits. 

ZX 81 - 55 56 61 66 71 76 81 86 

91 95100105110114118122126 

130 134 

COMMODORE - 60 65 70 75 80 85 

90 95 99 104 109 114 118 122 126 

130 134 

ORIC ~ 57 62 67 72 77 82 87 92 96 



101 106 111 115 119 123 128 131 

136 

AMSTRAD- 111 115 119 123 127 

131 135 

APPLE - 58 63 68 73 78 83 88 93 
97 102 107 112 116 120 124 128 

132 135 

SPECTRUM - 1 12 116 120 124 127 

132 136 

THOMSON ~ 59 64 69 74 79 84 89 
93 98103108113117 121 125129 

133 137 

MSX - 113 117 121 125 129 133 
137 



-LANGAGE MACHINE SUR 
COMMODORE 64 



Suite du petit heros, alias sprite. 
II faut maintenant le faire sauter en 
haul et en bas de I'ecran. 

8960 140 Vu de face, accroupi - 

-tete 



corps 

9024 141 Vu deface, accroupi 

9088142 Saut - corps 

9152 143 Saut - tete 

9216 144 Vu de face, accroupi 

corps 

9280 145 Vu de face, accroupi 

tete 

9344 146 Chute - corps 

9408 147 Chute - tete 

Les petits dessins : 



2e 
2e 



LISTING 1 



2300 
2308 
2319 
2318 
2320 
2328 
2330 
2338 
2340 
2348 
2330 
2358 
2360 
2368 
2370 
2378 
2380 
2388 
2390 
2398 
23H0 
23R8 
23B0 
23B8 
23C0 
23C8 
23DB 
23D8 
23E0 
23E8 
23F0 
23F8 
2400 
2408 



00 00 
00 00 
00 00 

00 00 

00 00 
7d ee 

01 EE 
00 00 
00 00 
00 00 
00 00 
00 7C 
00 00 
00 00 
13 00 
00 00 
00 00 

00 01 

83 00 
00 FE 
00 00 
6C 00 
00 C6 

00 01 

01 83 
00 00 
38 00 
00 00 
00 00 
00 00 
00 00 
00 00 
08 00 
00 00 



00 00 00 

00 00 00 

00 38 00 

00 00 00 

FE 00 01 
06 38 C0 
00 00 EE 
6C 00 00 
00 00 00 
00 00 00 
00 00 00 
00 00 38 
00 00 00 
00 00 00 
30 00 00 
00 00 0,0 

00 01 83 

he 00 di 

01 93 00 
00 00 7C 
7C 00 00 
00 6C 00 
00 00 C6 
83 00 01 
00 00 00 
10 00 00 
00 00 00 
00 00 00 
00 00 00 
00 08 00 

00 00 00 
00 00 00 

00 00 00 
00 00 00 



00 00 00' 

00 00 00' 

00 28 00' 

00 00 10' 

FF 00 03' 
0C 38 60' 
00 00 44' 
EE 00 00' 
00 00 00' 
00 00 00' 
00 10 00' 

00 00 00' 

00 00 00' 

00 00 00' 

00 00 00' 

00 00 00' 

00 01 BE' 

83 00 01' 
00 FE 00' 
00 00 7C 
7C 00 00' 
00 C6 00' 
00 01 83' 
83 00 00' 
00 00 00' 
7C 00 00' 
00 00 00' 
00 00 00' 
00 00 00' 
00 00 00' 
00 00 00' 
00 00 00' 
00 00 00' 
00 00 00' 



2410 


00 


30 


00 


38 


00 


03 


29 


83' 


2418 


03 


01 


80 


01 


83 


00 


01 


yj' 


2420 


00 


00 


FE 


00 


00 


re 


00 


00- 


2428 


7C 


00 


30 


38 


00 


oo 


38 


03' 


2430 


01 


EE 


00 


00 


EE 


00 


OO 


44' 


2438 


ae 


00 


sc 


00 


00 


tt 


OO 


00' 


2440 


00 


00 


00 


00 


00 


ee 


30 


BO' 


2448 


00 


00 


00 


00 


00 


00 


OO 


30 


2450 


m 


00 


03 


01 


83 


00 


13 


00- 


2458 


00 


7C 


00 


00 


38 


00 


00 


30- 


2460 


Be 


00 


00 


00 


00 


30 


00 


00 


2468 


00 


00 


00 


00 


00 


ae 


00 


00 


2470 


00 


00 


00 


00 


98 


30 


00 


33' 


2478 


00 


00 


00 


00 


OO 


Be 


00 


00 


2480 


00 


00 


00 


06 


38 


ce 


0b 


28' 


2488 


r.0 


03 


01 


80 


03 


01 


ee 


01 


2490 


93 


00 


01 


D7 


00 


00 


FE 


00 


2498 


00 


FF 


00 


00 


7C 


00 


00 


K' 


24R0 


00 


00 


7C 


00 


00 


7C 


00 


00- 


24R8 


e,r. 


00 


00 


6C 


OO 


00 


Ub 


00- 


24B0 


00 


rs 


00 


01 


83 


00 


01 


83' 


24B8 


no 


03 


01 


80 


33 


01 


80 


00 


24C0 


Oft 


00 


C0 


OO 


00 


00 


00 


10 


24C8 


00 


00 


7C 


00 


00 


38 


OO 


00 


24D0 


00 


00 


00 


00 


00 


00 


00 


00 


24D8 


w 


00 


00 


00 


30 


OO 


00 


00- 


24E0 


00 


oo 


00 


00 


00 


00 


Be 


00- 


24E8 


00 


00 


00 


00 


ge 


00 


00 


00- 


24F0 


00 


00 


00 


00 


00 


00 


00 


00 


24F8 


00 


00 


00 


00 


00 


30 


00 


00' 


2500 


FF 


00 


FF 


00 


FF 


OO 


FF 


00 



Les memes deformes (alias 
DATAs) : 

LISTING 2 

I FORF=8960TO9472 : RERDfl i POKE 
F,HNEXTF 

10 DRTH 0,0,0,0,0,0.0*0.0/0. 
0,0,0,0,0,0 

II DHTR 0,0,0,56,0,0,40,0,0, 
0,0,0,0.0.0. 16 

12 DRTH 0,0,254,0,1.255,0,3, 
125, 128,6,56, 192, 12,56,96 

13 DRTH 1,187,0,0.238.0,0,68 
,0.0, 108,0.0.238,0,0 

14 DRTH 0,0,0,0,0,0,0,0.0.0. 
0.0,0,0.0.0 

15 DRTR 0,0,0,0,0.0.16.0,0,1 
24,0,0,56.0.0.0 

16 DHTH 0,0,0,0,0,0.0.0.0,0. 
0,0,0.0.0.0 

17 DRTH 24,0,48,0,0,0.0,8.0. 
0,0,0.0.0.0.0 

18 DRTH 0,0,0,1,131,0.1.187, 



0,1,171,0,1,131,0,1 

19 DRTR 131,0,1,147,0,0,254, 
0,0,254,0,0, 124,0,0, 124 

20 DRTH 0,0,124,0,0,124,0,0, 
108,0,0,108,0,0,198,0 

Zl DRTH 0,198,0,0,198,0,1,13 
1,0,1,131.0,1,131,0,0 

22 DRTH 1,131,0,0,0,0,0,0,0, 
0,16,0,0,124,0,0 

23 DRTH 56-0, 0,0, 0.0, 0,0. 0.0 
,0,0,0,0,0,0 

24 DHTR 0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0 

25 DRTH 0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0 

26 DHTH 0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0.0 

27 DHTR 0,0,0,56,0,3,41.128. 
3,1.128.1,131,0,1,147 

28 DRTH 0,0,254,0,0,124,0,0, 
124,0,0,56,0,0,56,0 

29 DRTH 1,187,0,0,238,0,0,68 
,0,0, 108,0,0,238,0,0 

30 DRTH 0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0 

31 DRTH 0,0,3,1,128,0,16,0,0 
,124,0,0.56,0.0,0 

32 DHTR 0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0.0 

33 DRTH 0,0,0,0,0,0,0.0,0,0, 
0,0,0,0,0,0 

34 DHTH 0,0,0,6,56,192,6,40, 
192,3,1,128,3, 1,128,1 

35 DHTH 147,0,1,215.0.0.254, 
0,0,254,0,0,124,0,0,124 

36 DHTH 0,0,124,0,0,124,0-0, 
108,0-0,108,0,0,198,0 

37 DHTH 0,198,0,1,131,0,1,13 
1,0,3, 1,128,3, 1,128,0 

38 DRTH 6,0,192,0,0,0,0,16,0 
,0,124,0-0-56-0-0 

39 DHTH 0,0,0-0-0,0,0-0-0,0, 
0,0,0,0,0,0 

40 DHTR 0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0 

41 DRTH 0,0,0,0,0,0,0-0,0,0, 
0,0,0,0,0,0 

42 DRTH 148,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0 

Lorsque la merveilleuse routine de 
deplacement (presque definitive) 
sera terminee, les 6 NOPs seront 
remplaces par des JSR BRUIT AGE, 
I'adresse bruitage n'existant pas 



LISTING 3 

CI 00 H2 00 LDX #$00 
CI 02 86 FF STX $FF 

CI 04 RD 00 DC LDR $DC00 



C107 29 10 HND #$10 

C109 D0 94 BNE $C10F 

C10B R2 01 LDX #$01 

C10D 86 FF STX $FF 

C10F RD 00 DC LDR $DC00 

CI 12 29 0F RND #$0F 

CI 14 C9 0F CMP #$0F 

CI 16 D0 03 BNE $C11B 

CI 18 4C 50 CI JI1P $C150 

CUB 4fl LSR 

C11C B0 05 BCS $C123 

CUE 48 PHR 

CI IF 20 R0 CI JSR $C1R0 

CI 22 68 PLR 

CI 23 4R LSR 

C124 B0 05 BCS $C12B 

CI 26 48 PHR 

CI 27 20 00 C2 JSR $C200 

C12R 68 PLR 

C12B 4R LSR 

C12C B0 05 BCS $C133 

C12E 48 PHR 

C12F 20 50 C2 JSR $C250 

CI 32 68 PLR 

CI 33 4R LSR 

C134 B0 03 BCS $C139 

CI 36 20 R0 C2 JSR $C2H0 

CI 39 60 RTS 

A completer de : 
LISTING 4 

CI 50 H9 80 LDR #$80 
C152 8D F8 07 STR $07F8 

C155 R9 81 LDR #$81 
CI 57 8D F9 07 STR $07F9 

C15R 60 RTS 

LISTING 5 



C1R0 
C1R3 
C1R5 
C1H7 
C1R9 
CIRC 
C1RE 
C1B1 
C1B3 
C1B5 
C1B7 
C1B9 
C1BB 
C1BE 
C1C0 



RD 01 
C9 3D 
F0 42 
H9 8C 
8D F8 
R9 8D 
8D F9 
R5 H2 
69 15 
C5 R2 
D0 FC 
R9 8E 
8D F8 
H9 8F 
8D F9 



D0 LDR 
CMP 
BEQ 
LDR 

07 STR 
LDR 

07 STR 
LDR 
RDC 
CI1P 
BNE 
LDR 

07 STR 
LDR 

07 STR 



$D001 

•$3D 

SC1E9 

#$8C 

$07F8 

#$8D 

S07F9 

$H2 

#$15 

$R2 

$C1B5 

#$8E 

$07F8 

»$BF 

$07F9 



C1C3 H2 
C1C5 ER 
C1C6 ER 
C1C7 ER 
C1C8 CE 
C1CB CE 
C1CE R5 
C1D0 C5 
C1D2 F0 
C1D4 CR 
C1D5 D0 
C1D7 H9 
C1D9 8D 
C1DC R9 
C1DE 8D 
C1E1 H5 
C1E3 69 
C1E5 C5 
C1E7 D0 
C1E9 60 

LISTING 6 



23 



01 D0 
03 D0 
R2 

R2 
FC 

EE 
8C 

F8 07 
8D 

F9 07 
R2 

10 

H2 
FC 



LDX #$28 
NOP 
NOP 
NOP 

DEC JD001 
DEC *D0B3 
LDR $H2 
CMP $H2 
BEQ $C1D0 
DEX 

BNE $C1C5 
LDR #$8C 
STR $07F8 
LDR #$8D 
STR $07F9 
LDR $R2 
RDC #$10 
CMP $R2 
BNE $C1E3 
RTS 



C200 
C203 
C205 
C207 
C209 
C20C 
C20E 
C211 
C213 
C215 
C217 
C219 
C21B 
C21E 
C220 
C223 
C225 
C226 
C227 
C228 
C22B 
C22E 
C230 
C232 
C234 
C235 
C237 
C239 
C23C 
C23E 
C241 



RD 01 
C9 DD 
F0 42 
R9 90 
8D F8 
R9 91 
8D F9 
R5 H2 
69 15 
C5 R2 
D0 FC 
H9 92 
8D F8 
R9 93 
8D F9 
R2 28 
ER 
EH 
EH 

EE 01 
EE 03 
R5 R2 
C5 H2 
F0 FC 
CR 

D0 EE 
R9 8C 
8D F8 
R9 8D 
8D F9 
R5 R2 



D0 LDR 
CMP 
BEQ 
LDR 

07 STR 
LDR 

07 STH 
LDR 
RDC 
CMP 
BNE 
LDR 

07 STR 
LDH 

07 STR 
LDX 
NOP 
NOP 
NOP 

D0 INC 

D0 INC 
LDR 
CMP 
BEQ 
DEX 
BNE 
LDR 

07 STH 
LDR 

07 STH 
LDR 



$D001 

#$DD 

*C249 

#$90 

$07F8 

#$91 

$07F9 

$H2 

#$15 

$H2 

$C215 

#$92 

f07F8 

#$93 

$07F9 

#$28 



$D001 

$D003 

$R2 

$R2 

*C230 

$C225 

#$8C 

$07F8 

#$8D 

$07F9 

$R2 



C243 69 10 
C245 C5 R2 
C247 D0 FC 
C249 60 

.LISTING 7 



RDC #$10 
CMP $R2 
BNE $C245 
RTS 



C250 
C253 
C255 
C257 
C25H 
C25D 
C25F 
C261 
C263 
C265 
C268 
C26R 
C26D 
C270 
C272 
C275 
C277 
C27R 



RC 00 D0 
C0 15 
F0 23 
CE 00 D0 
CE 02 D0 
R5 R2 
29 08 
D0 0D 
H9 86 
8D F8 07 
R9 87 
8D F9 07 
4C 7R C2 
R9 88 
8D F8 07 
H9 89 
8D F9 07 
60 



LDV $D000 
CPV #$15 
BEQ $C27R 
DEC $D000 
DEC $D002 
LDR $R2 
RND #$08 
BNE $C270 
LDR #$86 
STH $07F8 
LDR #$87 
STH $07F9 
JMP $C27H 
LDR #$88 
STR $07F8 
LDH #$89 
STH $07F9 
RTS 



LISTING 8 



C2H0 


HC 


00 


D0 


C2H3 


C0 


FF 




C2R5 


F0 


23 




C2H7 


EE 


00 


DO 


C2RR 


EE 


02 


TJ0 


C2HD 


H5 


R2 




C2RF 


29 


08 




C2B1 


D0 


0D 




C2B3 


R3 


82 




C2B5 


8D 


F8 


07 


C2B8 


R9 


33 




C2BR 


8D 


F9 


07 


C2BD 


4C 


CR 


C2 


C2C0 


R9 


84 




C2C2 


8D 


FS 


07 


C2.C5. 


PS 


85 




C2C7 


RD 


F9 


07 


C2CH 


60 







LDV 
CPV 
BEQ 
INC 
INC 
LDH 
RND 
BNE 
LDH 
STR 
LDH 
STH 
JMP 
LDH 
STR 
LDH 



$D090 

#$FF 

$C2CH 

$D000 

$D002 

$H2 

#$08 

$C2C0 

#$82 

$07F8 

#$83 

$07F9 

$C2CH 

#$84 

$07F8 

#*e5 



STH $07F9 
RTS 



Pour la demo, le listing 4 du mois 
dernier est toujours valable, une 
petite modif toutefois : en C01D, 
mettre LDA 3 SOD au lieu de g $50 

Sebastien MOUGEY 
Alias - je ne serai pas a la mode et 
ne mettrai pas alias quelque chose 



— LANGAGE MACHINE SUR 

ZX81 



Comment ameliorer, sur notre ZX, 
la gestion des chaines de caracte- 
res et la rapidite de leur affichage 
a I'ecran ?. Quel est I'informaticien 
profondement humain et un tantinet 
litteraire qui n'a jamais souhaite, un 
jour, emailler ses programmes de 
nombreux messages de convivialite 
et de longs commentaires person- 
nalises ? Malheureusement avec le 
ZX le nombre de chaines de carac- 
teres possible est limite aux 26 let 
tres de I'alphabet (on fait pas un 
poeme avec ca '.); quand a I'affi- 
chage de ces chaines il est lent et 
I'usage de la tabulation oblige a 
multiplier les lignes de programma- 
tion avec leurs instructions PRINT 
AT. 

Je vous propose done de remplacer 
tout ce dispositif extremement gour- 
mand de memoire par une simple 
instruction RND x, oil "x" prendre 
la valeur de I'adresse de depart de 
notre routine. Pour plus de commo- 
dite, celle-ci, ne comprenant que 
des JR (saut relatif), sera parfaite- 
ment relogeable et vous pourrez 
done I'implanter oil bon vous sem- 
blera dans votre 16 ou 64K, et sur- 
tout lajouter a la suite des routines 
qui, je I'espere pour vous, s'y trou- 
vent deja. Mais qu'allons-nous rea- 
liser exactement ? 

Une variable chaine de caracteres 
unique, T$, devra contenir a elle 
seule tout le texte ecrit et pourquoi 
pas la partie graphique et illustrative 
d'un meme programme Les difle- 



rents messages a afficher figureront 
les uns a la suite des autres dans 
cette chaine, isoles par des separa- 
teurs "»" et identifiables chacun par 
des numeros d'ordre qui suivront 
immediatement ces separateurs. 
Avant le message lui-meme, diffe- 
rents symboles seront interpretes 
par la routine afin d'assurer tabula- 
tion et mise en page. J'ai choisi "$" 
pour le changement de ligne, " + " 
pour la tabulation colonne 10, "£" 
pour la tabulation colonne 21 . Vous 
pourrez aisement remplacer mes 
symboles par les votres, il vous suf- 
fira de leur substituer de nouveaux 
codes CHR$; de plus, vous pourrez 
rajouter de nouvelles possibilites a 
cette routine en y intercalant des 
modules de traitement supplemen- 
taires ; sa structure s'y prete 
parfaitement. 

Enfin, pour assurer un reperage 
sans failles de la chaine T$ dans 
I'espace memoire affecte aux varia- 
bles, je propose d'amorcer celle-ci 
par un signe " + " redouble. A titre 
d'exemple, la chaine T$ pourrait se 
presenter de la facon suivantes : 

T$ = "+ +)1£VOICI LE PREMIER 
MESSAGED + VOICI LE SECOND) 
3$LE TROISIEME)4ET LE DER- 
NIER)" (dans laquelle 1 ,2,3,4 seront 
en realite representes par leurs 
equivalents CHR$ 

Sauts de lignes et tabulations 
devront toujours s'effectuer en 
tenant compte de la position actua- 



lisee du pointeur d'ecriture DF-CC. 
En I'absence dedications e'est 
cette position qui sera retenue pour 
I'affichage du tronoon de T$. Le 
choix de ce troncon s'effectuera par 
le truchement d'un octet qu'il con- 
viendra prealablement de poker au 
numero choisi. C'est I'octet 
d'adresse 16417 qui remplira cet 
office. Exemple : si je POKE 
16417,3 puis RND x, la routine 
m'affichera le troisieme troncon de 
T$ e'est-a-dire dans notre chaine, 
apres un saut de ligne, le message 
"LE TROISIEME" Une simple bou- 
cle Basic permettra ('incrementation 
automatique de cet octet. 
Rappelons pour finir a tous ceux qui 
auraient a rentrer un texte important 
dans T$ qu'il convient d'utiliser la 
procedure dite de CONCATENA- 
TION et done de creer une variable 
de transit US qui accueillera le texte 
de chaque troncon avant de le pla- 
cer a la suite de ses anterieurs dans 
T$ par une simple operation d'addi- 
tion de chaines : LET T$ = T$ + U$. 

Vous constatez que la routine fait 
amplement appel aux variables- 
systeme du ZX81 ; E-LINE et VARS 
representent les limites inferieures 
et superieures de I'espace memoire 
affecte aux variables. C'est dans cet 
intervalle que la routine cherchera 
le code de T$ (57 (T) + 32 (cons- 
tante d'identification des variables 
chaines) = 89) suivi, trois octets plus 
loin, des codes de "++". La 
recherche du troncon a afficher est 
suivie dune "securite" empechant 
I'affichage de deborder au-dela de 
la zone memoire reservee a I'ecran. 
Vient ensuite le MODULE 
D'AIGUILLAGE qui. apres reperage 
des symboles, oriente le travail vers 
les differents MODULES DE TRAI- 



TEMENT. Ms correspondent succes- 
sivement aux tabulations, sauts de 
lignes et separateurs. Vous remar- 
querez qu'au fur et a mesure de 
I'AFFICHAGE SUR HL on reactua- 
lise la position du pointeur d'ecriture 
en "pokant" a I'adresse DF-CC, en 
meme temps qu'on prend garde a 
ne pas deborder sur une fin de ligne 
(118). Le retour au Basic s'effectue 
au niveau du module d'aiguillage 
apres reperage du symbole "»", 
aussi ne jamais loublier a la fin du 
dernier tronpon de T$ ! 

Je ne doute pas qu'economie de 
memoire et contort d'utilisation 
seront suffisants pour faire de vous 
d'excellents, sinon programmeurs, 
du moins prosateurs... 

Bernard Guyot 

REM * GESTION D'UNE CHAINE 
T$ 

REM * LIMITES 
:L31 LD HL.(16404) E-LINE 
PUSH HL 
LD HL.(16400) VARS 

REM * IDENTIF. T$, + + 
:L0 LD A.(HL) 
CP 89 
INC HL 
JR NZ.LO 
PUSH HL 

INC HL saute nb car. 
INC HL de T$ 
LD A.(HL) 
CP21 + 
JR NZ.L1 
INC HL 
CP 21 + 
JR Z.L2 

:L1 POP HL redepart 
JR LO 



:L2 POP DE defausse pile. 
INC HL pointe sur > 
POP BC E-LINE dans BC 

REM * IDENTIF NO D'ORDRE 
:L3 LD A.L 
CPCsi HL = BC 
JR NZ.L25 et BC = E-LINE 
LD A.H alors 
CP B retour 
RETZ 

:L25 LD A.(HL) 
CP 18- 
INC HL 
JR NZ.L3 

LD D.(HL) n°troncon T$ 
LD A.(16417) n°compteur 
CP D 
JR NZ.L3 

REM * SAUVE HL, DF-CC 
:L4 PUSH HL 
LD HL.(16396) D-FILE 
LD DE.792 

ADD HL.DE fin du FA 
LD B.H 
LDC.L 
LD HL.(16398) DF-CC 

REM * AIGUILLAGE 
POP DE depart message 
:L14 LD A.H 
CP B si DF-CC 
JR C.L26 en fin de 
LD A.L FA... 
CP C impossible. . 
RET NC done retour. 
:L26 LD (16398).HL DF-CC. 
INC DE saute le n° 
LD A.(DE) 
CP 13$ 
JRZ.L15 
CP21 + 
JRZ.L16 
CP 12 £ 
JR Z.L17 
CP 18 -fin du 



RET Z troncon. 
JR L20 

REM * "$" = SAUT DE LIGNE 
L15 LD A.(HL) 
CP 118 retour 
DEC HL debut de 
JR NZ.L15 ligne. 
PUSH DE libere DE 
LD DE.35 pour obtenir 
ADD HL.DE debut de ligne 
POP DE suivante. 
JR L14 

REM * '■ + " = TAB 10 
L16 LD A.(HL) 
CP 118 
DEC HL 
JR NZ.L16 
PUSH DE libere DE. 
LD DE .12 tabulation 
ADD HL.DE a 10. 
POP DE 
JR L14 caract. next 

REM * "£" = TAB 21 
:L17 LD A.(HL) 
CP 118 
DEC HL 
JR NZ.L17 
PUSH DE 

LD DE.23 tabulation 
ADD HL.DE a 21 
POP DE 
JR L14 

REM * AFFICHAGE SUR HL 
:L20 LD (HL).A ecriture 
INC HL inc DF-CC 
LD A.(HL) verification 
CP 118 
JR NZ.L14 
INC HL 
JR L14 

REM * n'oubliez pas initiali- 
sation de I'octet 16417 ! 



34 




DES REVES 

EN 
CARAFES 



UN TRAMWAY NOMME DESIR 



Rim d'Elia Kazan (1952) avec Marlon 
Brando, Vivian Leigh, Kim Hunter el Karl 
Maiden. 

Blanche du Bois (Leigh), ex-jeune aristo- 
crats sudiste a I'ex-beaute flamboyante se 
refugie chez sa soeur a la Nouvelle- 
Orleans. Nostalgique, elle vii dans le sou- 
venir du passe glorieux de la famille 
aujourd'hui tombee dans la debine. Stella, 
sa soaur.a epouse Stanley Kowalsky, une 
tranche de realite a lui tout seul. Stanley 
(Brando le marlou), brute sensible affutee 
comme un couteau, appartient a une cate- 
goric sociale beaucoup plus basse. Nean- 
moins, le couple s'entend bien. 
Nevrosee, depaysee, Blanche seme la per- 
turbation dans le menage. Elle meprise 
Kowalsky auquel elle s'affronte violem- 
ment. Remplie d'envie, de desir, bouffie 
de haine, Blanche, nymphomane vieillis- 
sante, aristocrate hypocrite, gonfle la tete 
du pauvre Kowalsky. 




Tous les tram mene a Cine-Plus, la 
librairie de Cinema qui a les affiches de 
vos desirs, 2, rue de L'Etoile, 75017 
Paris, Tel : 42. 67. 51. 52. 

Adaptation fidele de la piece de Tennes- 
see Williams, le huis clos de ce trio evo- 
que avec force et rage, I'animalite du desir 
sexuel ( puree, comment qui cause dis). 
Confines dans un espace reduit, les corps 
se frolent, les temperaments s'echauffent 
et le volcan explose dans un paroxysme 
d'ejaculation oratoire (no sex aphone). 
Quatre oscars, inedit a la television. 
Canal + gate ses abonnes. 

Diffusion le vendredi 13 a 20h35 sur 
Canal + 



BOULEVARD DU RHUM 



Film de Robert Enrico (1970) avec Bri- 
gitte Bardot, Lino Ventura, Bill T ravers, 
Clive Revill et Guy Marchand, 

A I'epoque de la prohibition, Cornelius von 
Zeelinga transporte du rhum de contre- 
bande. Interpele par les garde-cotes, il 
s'enfuit en abandonnant son bateau. Pour 
se refaire, il joue a I'aveugle. Un jeu tres 
en vue oil, contre une forte somme, il sert 
de cible vivante a un groupe de jouaurs, 
et ce dans un local clos et obscur. Au 
sixieme coup, il est blesse, au onzieme, 
il crie pouce. 

Blesse mais riche, il achete le bateau de 
ses reves : le Queen of Hearts. La reine 
de son cceur, il I'a decouverte dans une 
salle de cine : Linda Larue (Bardot), la 
grande star du muet. II voit tout ses films, 
en perd le sommeil et le manger (pas le 
boire, faut pas deconner) jusqu'au jour oil 
leurs destins se croisent sur une plage ou 
telle une sirene, elle emerge des flots qui 
etalent leurs reflets d'argent ect., ect. 
Un joyeuse cavalcade humoristico-virile 
agrementee du sourire mi-boudeur mi- 
enjoleur du sex symbol de vos parents. Yo 
yooooo une bouteille de rom... 

Diffusion le dimanche 8 a 20h35 sur 
TF1. 



PLUS MORT 
QUE VIF 

Un film culte pour fanatiques, 

ZOMBIE de Georges Romero. 

Sur Canal + le samedi 14 a 23hOO. 

ZOMBYX. 



DES GAR£ONS 
DANS LE VENT 



LE GANG DES FRERES JAMES 



Him de Walter Hill (1980) avec David, 
Robert et Keith Carradine, James et 
Stacy Keach, et Dennie et Randy Ouaid. 
Musique : By Cooder 

Lors d'une attaque de banque (Smith, 
Wesson et associes) par le gang des fre- 
res James, Younger et Miller associes, Ed 
perd la boule et lache des balles sur des 
innocents. "Shocking" declare Gentleman 
James qui exclut aussitot le fautif du Club 
des braqueurs. Apres I'attaque d'un train, 
la police privee Pinkerton et associes se 
lance a leurs trousses. 

Dans un sous-bois, un Younger est tue. 
Jim Younger le venge. Un partout. La mai- 
son des James explose, leur frere arriere 
y reste. Deux a un. Refugies chez des voi- 
sins, I'assaut des Pinkerton reduit en mi- 
nes aussi cette demeure. 

A part le cote destruction d'un mythe de 
I'Ouest, le film n'offre pas grand interet. 
Cedes, la photo impeccable, la distribution 
sans faille et les multiples rebondisse- 
ments confectionnent un divertissement 
honorable. Mais ou est le souffle epique, 
le duel magique, I'eternelle confrontation 
du bon et des mechants, bref le sel des 



LE PLEIN DE SUPER 



Rim d' Alain Cavalier (1975) avec Patrick 
Bouchitey. Etienne Chicot, Bernard 
Crommbey, Xavier Saint-Macary, Bea- 
trice Agenin et Nathalie Baye. 

Klouk (Crommbey), vendeur automobile 
chez un garagiste Lillois, aurait pas du 
accepter de descendre dans le midi la 
grosse voiture d'un gros client. Comme ca, 
il se serait pas dispute avec sa femme. Phi- 
lippe (Saint-Macary), le copain infirmier qui 
a accepte le poste de navigateur, I'aurait 
pas convaincu de prendre un auto- 
stoppeur, Charles (Chicot) qui ne les aurait 
pas embringue dans un petit hotel-resto oil 
son copain Daniel (Bouchitey) flippait un 
max suite a une rupture sentimentale. 

De fii en aiguille, Charles a impose Daniel 
dans la voiture puis a exige de voir sa 
femme, puis a kidnappe son fils. Et puis 
la voiture a derape contre les rochers, et 
puis... T'aurais pas du, Klouk. 

Sur un sujet guere different des Valseu- 
ses, le film toni-truand de Blier, Cavalier 
realise une ceuvre tendre sur I'amitie, la 
fraternite masculine, le mal de vivre. Un 
film qui baigne dans la bonne humeur, la 
deconnade sympa et pas triviale et qui finit 




bons westerns d'antan. Froide reconstitu- 
tion empruntee dans un realisme de bon 
aJoi, la mecanique tourne a vide. 

Diffusion le jeudi 12 a 20h35 sur FR3. 
Photo FR3. 



sur une note d'espoir ... Cavalier, ou le par- 
cours du cceur battant d'un realisateur 
francais. 

Diffusion le vendredi 1 3 a 23h00 sur A2. 
Photo A2. 



PSYCHOLOGIQUEMENT 
VOTRE 



DEAD ZONE 



Film fantastique de David Cronenberg 
(1983) avec Christopher Walken, Brooke 
Adams et Martin Sheen. 

Johnny (Walken) rentre d'une soiree avec 
son amie Sarah. Accident de la route. 
Coma. Johnny reprend conscience dans 
une clinique - 5 ans apres. Sa copine est 
non seulement plus vieille de 5 ans mais 
dotee d'un enfant et... d'un man. Se depla- 
cant avec difficulty, Johnny a gagne une 
faculte supplementaire : la prescience. Par 
simple contact, il voit I'avenir de son inter- 
locuteur. 

Un pouvoir qui I'effraye plus qu'il ne ie 
satisfait lorsqu'un politicien en campagne 



lui serre la main. Le denomme Stillson est 
candidal a un poste important qui le pro- 
pulserait certainement a une bonne posi- 
tion pour de futures presidencies. Dema- 
gogue, roublard et violent, Stillson devenu 
president, declencherait la guerre atomi- 
que. Johnny doit intervenir. 

Certainement, le meilleur Cronenberg a ce 
jour avec une montee en puissance dra- 
matique remarquable et une fin intelli- 
gente. A mi-chemin du melo-thriller el du 
fantastique, le film decrit un parcours 
psychologique fouille et convaincant sans 
effets racoleurs (enfin presque, avec le 
minimum vital inherent au genre). 

Diffusion le jeudi 12 a 20h35 sur 
Canal + . 




Sense- 



PASSIONS SOUS 
L'UNIFORME 



Film de Luchino Visconti (1954) avec 
Alida Valli, Farley Granger, Massimo 
Girotti, Heinz Moog et Rina Morelli. 

En 1866, les Italians luttent contre i'empire 
Austro-Hongrois qui occupe la Venetie. A 
Venise, on donne la premiere du dernier 
opera de Verdi, compositeur italien connu 
pour ses opinions patriotiques. Un public 
tres chic remplit le "Fenice", aristocrates 
venitiens et officiers austro-hongrois coha- 
bitent dans un silence tendu. Tous s'atten- 
dent a un incident. Venise range son frein 
et les partisans garibaldiens ne vont pas 
manquer cette belle occasion. 

Parmi eux, le lieutenant Franz Mahler 
(Granger) et la comtesse Livia Serpen 
(Valli) vivent un amour passionne. Les inci- 
dents se multiplient, les conflits eclatent, 
la guerre menace Venise mais peu importe 
aux deux amants qui trahissent leur patrie 
respective. Alors que la societe se trans- 
forme, que I'histoire se joue, ils demeurent 
indifferents a la destruction de leur monde. 

Elle trahit son man, ses idees. lui trahit son 
pays et son uniforme, puis finalement son 
amour pour Livia. De trahisons en abimes, 
elle denonce I'amant infidele aux autori- 
tes mititaires puis se trahit elle-meme. 

La consumation de I'amour par le temps, 
un beau sujet avec en arriere-fond le bruit 
des canons de I'histoire. La sensualite qui 
triomphe des conventions sociales, le 
romantisme qui emporte les convictions 
politiques sont illustres par une stylisation 
epuree des sentiments, une approche 
esthetique qui met a nu I'abjection de ces 
deux etres. La splendeur des decors et des 
costumes accentue la laideur des compor- 
tements. Brillantissima. 

Diffusion le lundi 9 a 21h50 sur TF1. 



LE GRAND JEU 



Film de Jacques Feyder (1934) avec 
Pierre Richard-Wilm, Marie Bell, Char- 
les Vanel, Line Clevers, Georges Pitoef , 
Olga Velbria et Francoise Rosay. 

Jeune avocat, brillant et beau, Pierre Mar- 
tel (Richard-Wilm) s'est ruine et deshonore 
a cause d'une femme. Pour se faire 
oublier, il quitte Paris et court combattre 
ies infideles. Depuis Charles Martel (son 
ancetre) qui les avait arretes a Poitiers, les 
Arabes ont recule en deca de la Mediter- 
ranee. L'atavisme familial aidant, il 
s'engage dans la Legion etrangere et des- 
cend jusqu'au fin fond du Sahara conte- 
nir les musulmans. 

Des annees plus tard, au retour d'une 
patrouille dans le desert, il se delasse au 
bordel de Mme Blanche (Rosey, la tenan- 
cies incontournable du cinoche francais). 
La, il avise une jeune beaute, Irma (Bell 
(de nuit)) toute fratche import ee de sa pro- 
vince metropolitaine. II croit reconnaitre en 
elle, celle pour qui il s'est ruine. II se met 
martel en tete et confusionne dans sa cer- 
velle ebouillantee par la chaleur Irma, vul- 
gaire et midinette, et Florence (Bell (de 
jour))j sophistiquee et mondaine. 
II reve monts et merveilles : chateaux en 
Espagne, casba a Tamanrasset... . II la 
convainc de s'etablir avec lui dans une 
baraque en France. Le jour de I'embarque- 
ment, il touche sa prime depart et voit sur 
la croisette d'AJger... Florence. 
Du melo comme on n'en fait plus (a part 
Spielberg). De la fatalite, de la sueur, des 
grands sentiments, de la folie, de la misere 
morale, tout un catalogue superbement 
agence. Avec en plus le parfum d'exotisme 
de nos lointaines colonies et les illustres 
symboles de la civilisation francaise (ricard 
et chaussettes a clous). Un classique. 

Diffusion le dimanche 15 a 22h30 sur 
FR3. 



LES JOCONDES 



Film de Jean-Daniel Pillault (1981) avec 
Diane Lahumiere, Marie-Agnes Then et 
Marc de Jonge. 

Pascale, provinciale de 19 ans, se retrauve 
dans le metro, un univers bizarre avec ses 
balayeurs negres, ses mendiants, ses clo- 
ohards et ses flics. Sommee de circuler, 
ei'e arrive chez Dominique, une inconnue 
do.it elle a trouve I'adresse dans un livre. 
Dominique I'accueille car elle a compris 
que Pascale, en fugue, a besoin d'un 
havre provisoire. Entre les deux femmes, 
une relation durable s'etablit. 

Un petit film sympa, bourre de defauts 
comme bien souvent la plupart des pre- 
miers longs metrages. Une evocation sen- 
sible de la difficulty d'etre, des actrices 
debutantes d'un naturel touchant. 

Bravo, la tele. Pour une fois, elle diffuse 
un film interessant (sans plus, d'accord) 
car personnel au lieu des eternelles resu- 
cees americaines. Un film passe totale- 
ment inapergu lors de sa sortie. Trois cri- 
tiques dans la salle de projection presse 
(j'en etais, si, si). Diffusion dans quatre sal- 
les au mois d'aout, une semaine a I'affi- 
che, un affichage sauvage : ach ! Sabo- 



tage. Une heureuse rehabilitation 
remettra le realisateur en selle. 



qui 



Diffusion le mercredi 11a 20h35 sut 
FR3. 
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LE LOGICIELDE LA SEMAINE 



REVERSI CHAMPION 

de LORICIELS pour AMSTRAD 



/I est assez rare que le logi- 
ciel de la semaine soil un jeu 
de reflexion, mais ce 
soft est tenement bien foutu, que je 
n'ai pas reussi a lui trouver quelque 
defaut que ce sort. Tenez, prenons 
la presentation : en haut de I'ecran 
vous avez une barre de menu con- 
tenant un certain nombre d'options 
qui permettent de faire plein de 
trues (nous verrons quoi plus tard), 
vers la gauche vous trouvez le 
damier et a droite vous avez, de 
haut en bas, le niveau du jeu, le rap- 
port des forces entre vous et votre 
adversaire, la liste des coups joues 



ainsi qu'une fenetre dans laquelle 
vous trouverez des indications sur 
la reflexion de I'ordinateur. Le jeu 
de deroule tres simplement : il suf- 
fit d'amener le curseur (avec les tou- 
ches flechees ou avec le joystick) 
sur la case que vous voulez jouer, 
mais vous pouvez aussi, si vous 
etes partisan du proverbe "pourquoi 
faire simple quand on peut faire 
complique", entrer les coordonnees 
des cases en les tapant au clavier. 

Sachez que ce programme com- 
porte 6 niveaux de jeu, et que meme 
au niveau 1 il donne pas mal de fil 



a retordre, alors le niveau 6, je vous 
raconte pas les emmerdements. 
Nous void arrives au "plus tard" de 
tout a I'heure, e'est-a-dire au main- 
tenant de tout de suite. Voici done 
les "plein de trues" dont il etait 
question un peu plus haut; allons-y 
dans I'ordre et dans la joie : nou- 
veau jeu, e'est quand on veut enta- 
mer une nouvelle partie; echange, 
e'est quand on est un mauvais per- 
dant, et que I'Amstrad est un trap 
bon baiseur, on echange ses pions 
avec les siens pour le baiser a notre 
tour; modifications, permet de modi- 
fier le jeu, sort pour resoudre un pro- 
bleme, sort pour tricher quand on 
est trop nul; liste, donne la liste 
(sinon ca ne serait pas une liste) de 
tous les coups joues; charge, 
appelle Napoleon, euh... non, 
charge une partie prealablement 
sauvegardee par I option de sauve- 
garde, qui permet de sauver une 
partie avec I'option de chargement, 
etc.; retour en arriere, serf aussi a 
tricher, e'est-a-dire que quand I'ordi- 
nateur vous a fait un coup du ton- 



nerre, vous decidez qu'il aurait pas 
du faire ca, et vous revenez en 
arriere pour prevoir le coup foireux 
et I'eviter (vous suivez ?); options, 
on selectionne toutes les couleurs 
(bordure, ecran, pions...), redefinir 
choisit le systeme de coordonnees 
(style echiquier ou OthelloTer (ca se 
dit, ga ?)), et enfin I'option jeu qui 
permet de revoir les coups joues, un 

f IbRBelsf M 



1 1 > II Si 

« ll.lllllMI II 




peu comme la liste, mais la, I'ordi- 
nateur deplace les pions en meme 
temps. 

On a acces a ces options en aliant 
les chercher dans la barre de menu 
au sujet de a propos de laquelle on 
vous cause un peu plus lot (pour les 
etudiants en francais, vous pouvez 
reprendre le plan de cet article qui 
est tres bien structure litterairement 
parlant), et alors, 6 miracle de la 
technologie francaise, de magnifi- 
ques fenetres sans rideaux 
s'ouvrent, vous dormant acces aux 
options decrites un peu plus haut. 
Sinon, le graphisme est assez som- 
maire : il represente un damier sur 
lequel reposent des pions qui sont 
ronds comme des pions d'Othello. 
Bon, on conclut : voila un jeu qu'il 
est bon tout plein, et que si vous 
cherchez un super Othello, e'est 
celui-la qu'il faut prendre et pas un 
autre, et que comme ca vous pour 
rez vous eclater, et qu'on pourrait 
en parler encore pendant des heu- 
res, et que tout a une fin, et que je 
m'arrete done la. 



MENU 



AMSTRAD 


Fox 


Bruno PONCIN 


page 31 


AMSTRAD Invasion Galactoc 


Nicolas LAMBERT 


page 9 


APPLE 


La Mission 


J.-Christophe BELLISSIME 


page 26 


CANON X07 Canon Writer 


Mathieu MARCIACO 


page 6 


CBM64 


Peter 


Dominico MANFREDI 


page 8 


EXL 100 


Tarot 


Michel MOUROT 


page 32 


FX 702 P 


Nage 


J.Philippe CUNNIET 


page 30 


MSX Supe 


r Chasseur 


Michel LADEGAILLERIE 


page 4 


ORIC 


Yin Yang 


Lionel VERDILLON 


page 28 


ORIC 


Exagone 


J.-Marc BELORGANE 


page 25 


SPECTRUM 


Rombo 


Didier RICHER 


page 10 


Tl 99/4 A (be) 


Conan 


Michael GONZALVES 


page 29 


Thomson M05-T09 


Helico 


Emmanuel MAHIAS 


page 5 


Thomson T07 


Oil Panic 


S. et A. CARRE 


page 3 


VIC 20 Bizarre Autant qu'Etrange 


Francois SCHNEIDER 


page 27 


ZX 81 La Ceinture Sacree 


Eric PARENT 


page 7 




POUR. VOTRk OPto'.NAJEUR. 
UTlLiSLZ PLUTTST" LES P«LES- 
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?u£ eff;cace.s, plus , 



POUR LA FETE DES MERES IL EST TROP TARD ! 
MAiS POUR CELLE DE VOTRE PERE IL EST ENCORE TEMPS. 

0FFREZAV0TREPERE 
LE TRADUCTEUR LAR0USSE DE POCHE DONT VOUS REVEZ... 



ATTENTION : 

CHAQUE TRADUCTEUR POSSEDE UN NU- 
MERO DE SERIE. NOTEZ-LE SOIGNEUSE- 
MENT. UN TIRAGE AU SORT AURA LIEU 
DANS LE NUMERO D'HEBDOGICIEL DE 
LA 1« SEMAINE DE SEPTEMBRE VOUS 
POURREZ DONC GAGNER PEUT-ETRE UN 
DEUXIEME TRADUCTEUR GRATUITEMENT. 




BILINGUE ELECTRONIQUE LAROUS- 

SE 

Un traducteur Francais/ Anglais/Francais 

DEFINITION : 

Traductrice et calculatri.ee de poche Fran- 

cais/Anglais et v. v. -8000 mots : 4000 

pour chaque langue. 

DESCRIPTION : 

Dimensions : 65 mm de large. 115 mm de 

long 8,8 mm de haut. 

F0NCTI0NS : 

• traductrice mot-a-mot. 

• possibility de tester ses propres con 
naissances. 

• possibility destockerjusqu'a 8 couples 
de mots et de les rappeler 5 tout moment. 

• tous les a vantages d'un petit diction noi- 
re de langue : 

- anglais classique et americanismes 
-verbes irreguliers 

- genre et pluriels irreguliers des substan- 
tifs 

- distinction des sens differents (fun me-i 
me mot 

- calculatrice de poche : 4 operations 
memoire constante. 
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